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.REM. 



lOENTinCATION 
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DATE: 



JUNE 06. 196S 



THT: IvrORMATION IN TMIS DOCUMENT IS SUBJECT TO CMANGE WITHOUT 
NOk'TCE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
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1.0 GENERAL INFORmTION 

1.1 PROGRAM ABSTRACT 

THIS IS A POP- 11 RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY 
OF A TSU05 HACTAPE SUBSYSTEM WHILE CONNECTED TO A POP- 11 SYSTEM 
(UNIBUS). THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
FUNCTIONS THAT AID IN T»C REPAIR OF THE DEVICE. THIS DIAGNOSTIC CONSIST OF 
TWELVE TEST. TEST 1-9 ARE EXECUTED IN SEQUENCE. TEST 10-12 ARE STAND ALONE TEST 
UHirn ALLOW THE OPERATOR TO PERFORM SPECIFIC FUNCTIONAL TEST ON SCOPE LOOPS 
ON CERTAIN FUNCTIONS. 



THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIROVCNT. 
THIS PROGRAM CAN BE USED WITH XXDP». ACT. APT. SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES. REFER 
TO THE XXDP* USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF 
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 

1.2 SYSTEM REQUIREMENTS 

PDP-11 PROCESSOR AND MEMORY 

CAUTION: DIAGNOSTIC REQUIRES 32K WORDS OF MEMORY 
(26K USEABLE AND 4K RESERVED FOR I/O PAGE) 
TSUOS MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER) 

CONSOLE TERMINAL 
POP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION S4 OR LATER) 
POP-11 DIAGNOSTIC LOADER/MONITOR (XXDP*) 



1.3 RELATED DOCUMENTS AND STANDARDS 
DIGITAL EQUIPMENT CORPORATION DOCUMENTS t 

1. CHQUS XXDP* USERS GUIDE t DOCUMENT NUr«ER AC-F548E-MC 
DATE: 14 JULY 1980. 

2. TSUOS TRANSPORT SUBSYSTEM USER'S GUIOEt DOCUMENT NUMBER EK- TSUOS -UG -001 
DATE: AUGUST 1982 

3. TSUOS TRANSPORT SUBSYSTEM TECHNICAL MANUAL i DOCUMENT NUMBER EK - TSUOS -TM -001 
DATE: AUGUST 1982 

4. TSUOS TRANSPORT SUBSYSTEM INSTALLATION MANUAL i DOCUMENT NUMBER EK- TSUOS IN -001 
DATE: AUGUST 1982 



1.4 DIAGNOSTIC HIERARCY PREREQUISITES 

FUNCTIONAL POP-11 CENTRAL PROCESSOR ANO MEMORY 

FUNCTIONAL CONSOLE TERMINAL 

FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 
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FUNCUONAL DIAGNOSTIC LOADER /NQNI TOR (XXOPO 



l.S ASSUMPTIONS 

ALL HARDWARE EXCEPT THE HARDWARE UNDER TEST IS ASSUMED TO WORK 
PROPERLY OR FALSE ERRORS CAN BE REPORTED. 

THE TAPE BEING USED ON THE TSOS TRANSPORT IS A KNOWN GOOD REEL 
OF TAPE. 

CZTSAA HAS RUN SUCESSFULLY. 

2.0 OPERATING INSTRUCTIONS 

THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION. REFER TO THE XXDP* USER'S MANUAL (CHQUS). 

2.1 COMMANDS 

THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 
(SUPERVISOR). THIS SECTION LISTS THE C0MMA»OS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP* USER'S MANUAL HAS MORE DETAILS. 



COMMAND EFFECT 



START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER tC) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXOP» MONITOR (XXDP» OPERATION ONLY!) 

ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 

CONSIDERED TO BE ACiIVE AT START TIME 

DROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 

BY THE DIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.S) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 



A COmANO CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
rOU MAY, FOR EXMVLE. TYPE "STA- INSTEAD OF -START*. 

2.1.1 OPERATOR COMMANDS 



THE TSU05 DIAGNOSTIC IS A PDP-11 DIAGNOSTIC SUPERVISOR COMPATIBLE 

PROGRAM. ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE 

CHQUS XXOP» USERS GUIDE. DOCUMENT NUTfiER AC-FS4a€-MC. THE USER ENTRY IS IN QUOTES. 



BOOT THE DIAGNOSTIC MEDIA 



•R VTS8?? 

DIAG. RUN- TINE SERVICES REV D. APR 79 
CZTSB-AO 



Fl 
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****TSU05 LOGIC DIAGNOSTIC**** 

UNIT IS TSU05 
>0R 

2.2 SWITCHES 

THERE ARE SEVERAL SWITCHES WHICH ARE USED TO NOOirY SUPERVISOR OPERATION. 
THESE SWITC»CS ARE APPENDED TO THE LEGAL COTtlANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED 8EL0U WITH A BRIEF DESCRIPTION OF EACH. 
IN THE DESCRIPTIONS BELOU. A OCCINAL NUHBER IS OE IGNATED BV "00000". 

SWITCH EFFECT 



/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUr«£RS. FOR EXAMPLE > /TESTStlsStT-lO. 
THIS LIST WILL CAUSE TESTS 1.5.7.8.9.10 TO 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN. 

/PASS: 00000 EXECUTE 00000 PASSES (00000 - 1 TO 64000) 

/FLAGS:FLGS SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 
IN SECTION 2 S 

/EOP:DOOOD REPORT END OF PASS MESSAGE AFTER EVERY 

00000 PASSES ONLY. (00000 ■ 1 TO 64000) 

/UNITS:LIST TEST/AOO/OROP ONLY THOSE UNITS SPECIFIED 

IN THE LIST. LIST EXAMPLE - /UNITS :0: 5: 10-12 
USE UNITS 0.5.10.11.12 (UNIT NUMBERS - 0-6S) 

EXAMPLE 0*" SWITCH USAGE: 

START/TESTS: 1 -S/PASS: 1000/EOP: 100 

T« EFFECT OF THIS COMMNO WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED. 2) ALL UNITS WILL TESTED 1000 TIMES AND S) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY . A 
SWITCH CAN BE RECOGNIZED BY THE FIRST TlMEE CHARACTERS. YOU HAY. 
FOR EXAMPLE. TYPE "/TESxl-S" INSTCAO OF -/TESTS: 1-5". 

BELOU IS A TABLE THAT SPECIFIES WHICH SUITOCS CAN BE USED By EACH 
COMMAND. 

TESTS PASS FLAGS EOP UNITS 

START XX XX X 

RESTART XX XX X 

CONTINUE X XX 

PROCEED X 

DROP X 

AOO X 

PRINT 

DISPLAY X 

FuAGS 

ZFLAGS 

EXIT 



2.5 FLAGS 
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FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SUITCH. FLAGS 
ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 
ALL FLAGS. UITM THE EXCEPTION OF THE START AND ZFLAGS COMMANDS. 
NO COmANDS AFFECT THE STATE OF THE FLAGS i THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 



FLAG EFFECT 



HOE HALT ON ERROR - CONTROL IS RETURNED TO 

RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

lER* INHIBIT ALL ERROR REPORTS 

IBR* INHIBIT ALL ERROR REPORTS EXCEPT 

FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE. NU»«ER. PC. TEST AND UNIT) 

IXE* INHIBIT EXTENDED ERROR REPORTS (THOSE 

CALLED BY PRINTX MACRO'S) 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

60E "BELL" ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 

APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 

STATISTICAL REPORTING) 
IDR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTOOROP CODE 

LOT LOOP ON TEST 



♦ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 



SEE THE XXDP* USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAT 
SPECIFY MORE THAN ONE FLAG WITH TIC FLAG SWITCH. FOR EXAMPLE. 
TO CAUSE THE PROGRAM TO LOOP ON ERROR. INHIBIT ERROR REPORTS 
AND TYPE A "BELL" ON ERROR. YOU MAY USE THE FXLOWINC STRING: 

/FLAGS :LOE:IER:BOE 



2.4 HARDWARE QUESTIONS 

WHEN A DIAGNOSTIC IS STARTED. THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING "CHANGE HW (L) 7" 
YOiJ MUST ANSWER "Y" AFTER A START COMMAND UM.ESS THE HARDWARE 
irrORMATION HAS BEEN "PRELOADED" USING THE SETUP UTILITY (SEE 
CHAPTER 14 OF THE XXOP* USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A "Y". THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS (IN DECIMAL). 

AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR). THE PROGRAM WILL ISSUE THE "CMANCe HW?" QUESTION TO ASK IF 
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 
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ON A "N" (NO) RESPONSE TO THE "CHANGE MU?" QUESTION. THE DIAGNOSTIC WILL 

RUN USING THE DEFAULT VALUES FOR ALL QUESTIONS. THE DEFAULT ADDRESS AND VECTOR ARE: 

TSBA/TSDB - 172520. VECTOR - 224 



ON A "Y" (YES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS UILL 
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED. A 
VALUE. IF PRESENT. LOCATED TO THE LEFT OF THE QUESTION MARK IS THE 
DEFAULT VALUE THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A 
RESPONSE. A "(D)" IN A QUESTION INDICATES THAT A DECIMAL NUMBER IS 
REQUIRED AS A RESPONSE. AN "(O)" INDICATES AN OCTAL NUMBER IS BEING 
SOLICITED. AN "(L)" INDICATES THAT A LOGICAL RESPONSE IS TO BE MADE: 
"Y" FOR YES. "N" FOR NO. 

9 UNITS (D) ? <ENTER THE NUMBER OF M7455 CONTROLLERS 
PRESENT TO BE TESTED> 

UNIT 0 

DEVICE ADDRESS (0) I72S20 ? <ENTER THE ADDRESS OF THE 

TSBA/TSDB REGISTER) 

VECTOR (0) 224 ? <ENTER AOORESS OF INTERJMPT 

VECTOR) 

THE ADDRESS AND VECTOR OUESTIQNS UILL BE KSKEO FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN T»C UNITS?" OUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER. BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING AS FOLLOUS: 

UP TO 4 TSUOS CONTROLLERS PER II AND UP TO 2 DRIVES PER CONTRXLER 
2.5 SOFTWARE QUESTIONS 

AFTER YOU HAVE ANSWERED THE HAn OW W I I C QUESTIONS OR AFTER A RESTART 

OR CONTINUE COMMAND. THE RUNTIME SERVICES UILL ASK FOR SOFTWARE 

PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 

OPERATION MOOES. YOU WILL BE PROMPTED BY "CHANK SW (L) 7" 

IF YOU WISH TO CHANGE ANY PARAMETERS. ANSUER BY TYPING 

"Y". THE SOFTUARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 

IN THE NEXT PARAGRAPHS). 

THE FOLLOWING QUESTIONS ARE ASKED ON A START. RESTART. OR CONTINUE. 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 

CHANGE SU (L) 7 <TYPE Y TO CAUSE THE FOLLOUING 
QUESTIONS TO BE ASKED > 

INHIBIT ITERATIONS (L) N ? <TYPE "Y" TO PRF.VENT MULTIPLE 

ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK .RUNNING LOGIC 
TESTS USE MULTIPLE 
ITERATIONS.) 
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2.6 EXTENDED P-TA8LE DIALOGUE 

UHEN YOU ANSWER THE HARDWARE QUESTIONS. YOU ARE BUILDING ENTRIES 
IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST 
WAY TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH 
UNIT TO BE TESTED. IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS 
A HASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES. THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 

TO ILLUSTRATE A MORE EFFICIENT METHOD. SUPPOSE YOU ARE TESTING 
A DEVICE. THE XYll. SUPPOSE THIS DEVICE CONSISTS OF 
A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT. 
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS 0 THROUGH 7. THERE 
IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE 
Q-FACTOR. THIS Q-FACTOR MAY BE 0 OR 1. BELOW IS A SIMPLE WAY 
TO BUILD A TABLE FOR ONE XYll WITH EIGHT UNITS. 

• UNITS (D) ? 6<CR> 

UNIT 1 

CSR ADDRESS CO) ? 160000<CR> 
SUB-DEVICE • (0) ? 0<CR> 
Q-FACTOR (0) 0 ? 1<CR> 

UNIT 2 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE « (0) ? 1<CR> 
Q-FACTOR (0) 1 ? 0<CR> 

UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB -DEVICE # (0) ? 2<CR> 
Q-FACTOR (0) 0 ? <CR> 

UNIT 4 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE ♦ (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 

UNIT 5 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE « (0) ? 4<CR> 
Q-FACTOR (0) 0 ? <CR> 

UNIT e 

CSR ADDRESS (0) ? 160000<CR> 
SUB -DEVICE 9 (0) ? 5<CR> 
Q-FACTOR (0) 0 ? <CR> 

UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE « (0) ? 6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 

UNIT 6 

CSR ADDRESS (0) I60000<CR> 
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SUB -DEVICE • (0) ? 7<CP> 
Q-FACTOR (0) 1 ? <CR> 

NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL UHEN SPECIFYING 
MULTIPLE UNITS! 

AS YOU CAN SEE FROM THE ABOVE EXAMPLE. THE HARDUARE PARAMETERS 

DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 

NOT VERY EFFICIENT. 

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
LET'S BUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION 
«^EAT>JRE. 

• UNITS (D) 7 8<CR> 
UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE « (0) ? 0.1<CR> 
Q-FACTOR (0) 0 ? 1.0<CR> 

UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE « (0) ? 2-5<CR> 
Q-FACTOR (0) 0 ? 0<CR> 

UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE ♦ (0) ? 6.7<CR> 
Q-FACTOR (0) 0 ? 1<CR> 

AS YOU CAN SEE IN THE ABOVE DIALOGUE. THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INTOfinATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS. TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECOND PASS. FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED. THE 
"•" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE FIRST NUMBER TO THE SECOND. IN THIS CASE. SUB -DEVICES 
2. 3. 4 AND 5 WERE SPECIFIED. (IF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES. THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 
BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND 0 RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 

THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 

• UNITS (D) ? 8<CR> 
UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUb-DEVICE ♦ (0) ? 0-7<CR> 
Q-FACTOR (0) 0 ? 0. 1.0. . . . 1. 1<CR> 
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AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 

2.7 QUICK START-UP PROCEDURE (XXDPO 

TO START-UP THIS PROGRAM: 

1. BOOT XXDP* 

2. GIVE THE DATE AND ANSWER THE LSI AND 50HZ (IF THERE 
IS A CLOCK) QUESTIONS 

3. TYPE "R NAME''. WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 

4. TYPE "START" 

5. ANSWER THE "CHANGE HW" QUESTION WITH "Y" 

6. ANSWER ALL THE HARDWARE QUESTIONS 

7. ANSWER THE "CHANGE SW" QUESTION WITH "N" 

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 

3.0 ERROR INFORMATION 

3.1 TYPES OF ERROR MESSAGES 

THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 
A DIAGNOSTIC: GENERAL. BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE "lER" FLAG IS SET (SECTION 2.3). 
THE GENERAL ERROR MESSAGE IS OF THE FORM: 

NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC:XXXXXX 
ERROR MESSAGE 

.WHERE; NAME - DIAGNOSTIC NAME 

TYPE - ERROR TYPE (SYS FATAL. OEV FATAL. HARD OR SOFT) 
NUMBER - ERROR NUMBER 

UNIT NUMBER - 0 - N (N IS LAST UNIT IN PTABLE) 
TST NUMBER - TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX - ADDRESS OF ERROR MESSAGE CALL 

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE "lER" OR "IBR" FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTENTS OR GOOO/BAO DATA. THESE ARE ALWAYS 
PRINTED Ur^ESS THE "lER". "IBR" OR "IXR" FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 
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3.2 SPECIFIC ERROR MESSAGES 



BELOU ARE SAMPLE ERROR MESSAGES. EACH ERROR MESSAGE 
OF ERRORS DETECTED BY THIS DIAGNOSTIC. 



REPRESENTS DIFFERENT TYPES 



ERROR MESSAGE EXAMPLE 1 

THIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR STATUS WORD RETURNED 
TO THE DIAGNOSTIC. THE FIRST PART DEFINES THE TEST FUNCTION AND UNIT THAT FAILED. 
THE SECOND PART PRIOVIDES THE REGISTER BITS AND THEIR MNEMONICS FOR THE 
INCORRECT REGISTER OR STATUS WORDS. THE THIRD PART IS THE EXPECTED AND RECEIVED 
DATA. 



TST: 016 FIFO EXERCISER TEST 

CZTSB HRO ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624 
FIFO STATUS (IN UORO 9) INCORRECT AFTER WRITE FIFO 



TAPE BUS SIGNALS IN WORD M: - DESIGNATOR 
PARERR<15> lEOT <12> IFMK <9> IRDY<6> 
IRESV2<14> IIDENT<11> IHER <8> I0NL<5> 
IRESV1<13> ICER <10> ISPEE0<7> ILDP<4> 

TAPE BUS SIGINALS IN WORD •9: 
0ATMIS<7> ILW<6> 0UTR0Y<5> INR0Y<4> 

MESSAGE BUFFER ADDRESS - 0473S2 

MESSAGE BUFFER CONTENTS: 
WORD «0 EXPO: 100020 RECV: 



<BIT ♦> 
IRW0<2> 
IFBY<1> 
IFPT<0> 



WORD *1 EXPO: 
WORD •2 EXPO: 
WORD M EXPO; 
WORD «4 EXPO: 
WORD «5 EXPO: 
WORD «6 EXPO: 
WORD •7 EXPO: 
WORD *8 EXPO: 
WORD •9 EXPO: 



000012 
000000 
000010 
000000 
000000 
000000 
000000 
070217 
000074 



100020 XOR: 000000 

000012 XOR: 000000 

000000 XOR: 000000 

RECV: 000010 XOR: 000000 

RECV: 000000 XOR: 000000 

000000 XOR: 000000 

000000 XOR: 000000 

000000 >CR: 000000 

070217 XOR: 000000 

0000S4 XOR: 000040 



RECV: 
RECV: 



RECV: 
RECV: 
RECV: 
RECV: 
RECV: 



ERROR MESSAGE EXAMPLE 2 

THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE. IN THIS 
INSTANCE A UNRECOVERABLE ERROR OCCUREO WHICH INDICATES THAT THE CONTROLLER 
MAY BE DEFECTIVE. 

CZTSB HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202 
TSSR NOT CORRECT AFTER SPACE RECORDS COMMAND 

TSSR • 100214 

TSSR BITS SET: SC.SSR 

TERMINATION CLASS CODE - UNRECOVERABLE ERROR 

f-ACKET ADDRESS - 026420 

PACKET WORD 9 - 140010 

PACKET WORD 9 - 000010 

PACKET WORD • - 000000 

PACKET WORD « - 000024 



Ml 
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ERROR MESSAGE EXAMPLE 3 

THIS ERROR SHOWS THAT THE MOTION BIT DID NOT GET SET WHILE DOING A REWING 
WITH EXTENDED FEATURES MODE ENABLED. 



CZTSB HRD ERR 00121 ON UNIT 00 TST 001 SUB 002 PC: 023306 
MOT BIT (XSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE) 
EXPO: Cuo312 RFCV: 000112 XOR: 000200 



4.0 PERFORMANCE AND PROGRESS REPORTS 

AT THE END OF EACH PASS. THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE "EOP" SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 
OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 

SUCCESSFUL RUN EXAMPLE (PDP-11) 



DR> ST A/FLA : PNT : HOE : UAM 
UNITS (D) ? 1 
UNIT 0 

DEVICE ADDRESS (0) 172520 ? <CR> 
VECTOR (0) 224 ? <CR> 
CHANGE SW (L) ? N<CR> 



THE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE COMMAND HAS THREE 
SWITCHES ON WHICH ARE "PRINT EACH TEST NBR AS EXECUTED" . "HALT ON 
ERROR" AND "RUN IN UNATTENDED MODE". 

NOTE: THE UAM FLAG SHOULD BE USED TO PREVENT TEST 10-12 FROM BEING 
EXECUTED UNLESS THE OPERATOR WANTS THESE SPECIFIC TEST. 

TST: 001 INITIALIZE 05 TEST 

TST: 002 BASIC WRITE SUBSYSTEM MEMORY TEST 

TST: 003 DMA MEMORY ADDRESSING TEST 

TST: 004 RAM EXERCISER TEST 

TST: 005 FIFO EXERCISER TEST 

TST: 006 STATIC TRANSPORT BUS CHECK 

TST: 007 TRANSPORT BUS INTERFACE CHECK VIA LOOPBACK TEST 

TST: 008 READ/WRITE DATA PARITY CHECK TEST 

TST: 009 MISCELLANEOUS LOGIC CHECKS TEST 

TST: 010 STAND-ALONE MANUAL INTERVENTION NOT EXECUTED TEST 

TST: Oil STAND-ALONE CONFIGURATION TYPEOUT NOT EXECUTED TEST 

TST: 012 STAND-ALONE SCOPE LOOPS NOT EXECUTED TEST 
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SEQ 013 



0 ERRORS 

NOTE: THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS LIMIT HAS BEEN 
SPECIFIED WITH THE "/PASS;" SWITCH. 

PROGRAM RUN Tlf^S 

THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW. THESE FIGURES ARE 
TO BE USED AS A GUIDE. THE TIMING WAS DONE ON A POP -11 
PROCESSOR WITH A LA.34 CONSOLE. 

THE PROGRAM RUNS IN TWO MOOES s NO ITERATIONS AND DEFAULT MODE. IN THE 
NO ITERATIONS MODE. EACH TEST IS RUN ONCE. WITH NO ITERATIONS. IN THE 
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES INDICATED BY 
THE ITERATION COUNT. NO ITERATIONS MODE IS SELECTED BY ANSWERING THE 
INHIBIT ITERATIONS QUESTION WITH A "Y" (YES). 



TEST 


N/I 


ITER 


OEF 


NUMBER 


SECS. 


SECS 


SECS. 


1 


15 


50 


35 


2 


1 


6 


5 


3 


1 


1 


0 


4 


110 


540 


430 


5 


1 


10 


9 


6 


10 


120 


110 


7 


1 


3 


2 


8 


15 


15 


12 


9 


17 


17 


13 



THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 9 IN ONE COMMAND: 

Q.V. 2 MINS 19 SECONDS 

DErAULT 11 MINS 35 SECONDS 



5.0 DEVICE INFORMATION TABLES 

WHENEVER THE PROGRAM IS STARTED. VIA THE STA(RT) COMMAND. 
THE SUPERVISOR REQUESTS THE F0LL0UIN6 P- TABLES PARAMETER 
CHANGES: 

CHANGE HW CD ? 

# UNITS CD) ? <ENTER THE NUMBER OF M7455 CONTROLLERS 
PRESENT TO BE TESTED> 

UNIT 0 

DEVICE ADDRESS (0) 172520 7 < ENTER THE ADDRESS OF THE 

TSBA/TSDB REGISTER> 

VECTOR CO) 224 ? <ENTER ADDRESS OF INTERRUPT 

VECTOR> 

THE ADDRESS AND VECTOR QUESTIONS UILL BE ASKED FOR EACH OF THE NUMBER OF 



B2 

USER DOCUMENTATION MACRO MlllS 01-FEe-a4 17:02 SEQ 014 

UNITS (CONTROLLERS) SPECIFIED IN THE "♦ UNITS?" QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER. BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING. 

IN ADDITION. ON A START. RESTART OR CONTINUE THE SUPERVISOR 
REQUESTS CHANGES TO THE SOFTWARE OPERATING PARAMETERS. AS 
FOLLOWS: 

CHANGE SW (L) ? 



6.0 TEST SUMMARIES 
TEST 1: INITIALIZE AFTER WRITE CHARACTERISTICS 
TEST DESCRIPTION: 

THIS TEST VERIFIES THAT A HAROUARE INITIALIZE COTtlAND 
INVOKED AFTER A WRITE CHARACTERISTICS COMNAND SETS UP 
THE COMMAND. MESSAGE AM) CHARACTERISTIC IMAGE BLOCKS 
IN THE CONTRXLER RAH CORRECTLY. 



TEST 2: BASIC WRITE SUBSYSTEM MEMORY COWMND 

THIS TEST VERIFIES THAT THE WRITE SUBSYSTEM MEMORY C0»*1AND WITH A 
BSELO SELECT CODE OF 0 (NO-OP) EXECUTES CORRECTLY. IT ALSO 
VERIFIES THAT A WRITE SUBSYSTEM MEMORY COrtMND WITH A NON-ZERO 
MODE FIELD IS REJECTED. THE TEST FURTHER VERIFIES MICROPROGRAM 
COMMAND DECODING AND HANDLING SEQUENCES. 

TEST 3: DMA MEMORY ADDRESSING 

THIS TEST VERIFIES THAT THE CONTROLLER CAN PROPERLY ADDRESS AND 
ACCESS ALL AVAILABLE CPU MEMORY (OTHER THAN THAT OCCUPIED BT THE 
DIAGNOSTIC AM) DIAGNOSTIC SUPERVISOR CODE) FOR BOTH READING (OATI) 
AND WRITING (DATO). VERIFIED ARE THE LSI-Il BUS DRIVERS FOR ALL 
AVAILABLE ADDRESS LINES. UP TO THIS POINT ONLY 16 BITS HAVE BEEN 
USED FOR DMA TRANSFERS. 



CAUTION 

TrC LSI BUS DRIVERS FOR ALL AVAILABLE ADDRESS LINES 
ARE ONLY CHECKED WHEN RUNNING ON A 1 IB SYSTEM UITH MORE THAN 
l2aK WORDS OF MEMORY! 



TEST 4: RAM EXERCISER TEST 
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SEQ 015 



THIS TEST USES THE READ AND WRITE RAM (BOTH SINGLE AND 256 
COCATIONS) SELECT COOES OF THE WRITE SUBSYSTEM MEMORY COMMAND 
TO EXERCISE THE CONTROLLER'S RAM MEMORY AND DMA LOGIC 



TEST 5: EXTENDED FEATURES SWITCH AND TIMERS A.B 
TEST DESCRIPTION: 

THIS TEST VERIFIES THE INVERT EXTENDED FEATURES FUNCTION 
CAN LOGICALLY INVERT THE EXTENDED FEATURES SWITCH AND 
THAT THE INTERNAL TIMERS A AND B OPERATE CORRECTLY. 

TEST 6: FIFO EXERCISER 

TEST DESCRIPTION: 

THIS TEST USES THE WRITE SUBSYSTEM MEMORY COMMAND TO 
VERIFY THE CONTROLLER'S FIFO AND ASSOCIATED STATUS AND 
CONTROL LOGIC. 

TEST 7: STATIC TRANSPORT BUS INTERFACE TEST 

TEST DESCRIPTION: 

WRITE TO TSSR REGISTER TO SOFT INITIALIZE THE CONTROLLER 

00 WRITE CHARACTERISTICS TO CHECK FOR EXTENDED FEATURES SWITCH 

IF EXTENDED FEATURES HARDWARE SWITCH CLEAR THEN: 

DO WRITE SUBSYSTEM WRITE MISCELLANEOUS TO SET EXTENDED FEATURES. 
00 WRITE CHARACTERISTICS TO SELECT RESERVED UNIT 7 
00 A WRITE SUBSYSTEM READ STATUS 

IF ANY TRANSPORT INTERFACE SIGNALS ARE ASSERTED THEN PRINT ERROR 



TEST 8: TRANSPORT BUS INTERFACE LOOPBACK TEST 
TEST DESCRIPTION: 

THIS TEST VERIFIES THE CONTROLLER'S TRANSPORT BUS 
DRIVERS. RECEIVERS. AND SIGNAL LOOPBACK LOGIC. NOTE 
THAT THE STATIC TRANSPORT BUS TEST MUST HAVE RUN 
CORRECTLY FOR THIS TEST TO PROVIDE MEANINGFUL RESULTS. 

TEST 9: REAO/WRITE DATA PARITY TEST 

TEST DESCRIPTION: 

THIS TEST VERIFIES THAT THE WRITE DATA PARITY GENERATOR 
AND THE READ DATA PARITY CHECKER OPERATE PROPERLY. THE 
TRANSPORT BUS SIGNAL LOOPBACK MODE IS ENABLED AND A 
SET WRONG PARITY FUNCTION IS EXECUTED. THEN VARIOUS 
WRITE SUBSYSTEM MEMORY FUNCTIONS ARE PERFORMED TO 
WPITE DATA TO AND FROM THE FIFO IN LOOPBACK MODE. 
THE PROGRAM THEN CHECKS TO INSURE A READ DATA PARITY 
ERROR OCCURRED. 

A RESET FIFO IS DONE AND THE READ DATA PARITY 
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ERROR BIT IS AGAIN TESTED TO INSURE IT C1.EAREO. 
FINALLY A CLEAR WRONG PARITY FUNCTION IS DONE 
AND IT IS VERIFIED THE DATA WORD CAN PASS IN LOOPBACK 
MODE WITHOUT SETTING READ DATA PARITY ERROR. 

TEST 10: MANUAL INTERVENTION 

THE MANUAL INTERVENTION TEST IS A STANDALONE ROUTINE (NOT REALLY A "TEST") 
THAT ALLOWS THE OPERATOR TO CHECK OUT VARIOUS ELEMENTS AND FUNCTIONS OF 
THE SUBSYSTEM THAT CAtMOT 8C MANIPULATED THE PROGRAM ALONE. WHEN 
THIS ROUTINE IS STARTED. IT FIRST PRINTS OUT A MENU OF SELECTABLE 
SUBTESTS AND THEN WAITS FOR THE OPERATOR TO TYPE IN A SELECTION CODE. 
THE ONLY WAYS TO EXIT THIS ROUTINE AND RETURN TO THE DIAGNOSTIC SUPERVISOR 
ARE BY TYPING <CTRL-C> OR SELECTING CODE 6. 
SELECTION COOES AND SUBROUTINES ARE: 

CODE ROUTINE 

0 HELP. PRINTS THIS MENU. 

1 TURN ON ALL M7455 LEO INDICATORS 

2 TURN OFF ALL M7455 LED INDICATORS 

3 OFFLINE/ONLINE ATTENTION TEST 

4 WRITE-PROTECT TEST 

5 PRINT EXTENDED TRANSPORT STATUS 

6 EXIT (RETURN TO SUPERVISOR) 

TEST 11: CONFIGURATION TYPEOUT 

THIS IS A STANDALONE ROUTINE THAT PRINTS OUT ON THE CONSOLE TERMINAL 
THE CONFIGURATION OF THE H74SS MODULE AND TSU05 SUBSYSTEM. SPECIFICALLY. 
THE FOLLOWING INFORMATION IS PRESENTED: 

1.0 STATE OF THE EXTENDED FEATURES SWITCH ON THE M7455: ON (EXTENDED 
FEATURES ENABLED) OR OFF (EXTENDED FEATURES DISABLED). 

2.0 STATE OF THE BUFFERING ENABLE SWITCH ON THE M7455: ON 
(BUFFERING ENABLED) OR OFF (BUFFERING DISABLED). 

S.O MICROCODE REVSION LEVEL OF THE M74SS. 

4.0 NUMBER OF TAPE TRANSPORTS COMCCTED TO THE CONTROLLER. 

5.0 UNIT SELECT CODE AND STATE (ONLINE /OFFLINE. WRITE ENABLED/PROTECTED) 
OF EACH COMCCTED TRANSPORT. IN ADDITION. THE PROGRAM WILL INDICATE. 
FOR EACH ON-LINE TRANSPORT. WHETHER OR NOT IT IS EQUIPPED WITH THE 
EXTENDED TAPE STATUS READOUT FEATURE. 

TEST 12: SCOPE LOOPS 

THIS IS A STANDALONE ROUTINE PROVIDING A NUMBER OF TIGHT "SCOPE 
LOOPS" USEFUL FOR DEBUGGING BASIC REGISTER ACCESS PROBLEMS WITH 
THE M7455 MODULE. THESE SCOPE LOOPS CAN BE USED WHEN THE NORMAL 
"LOOP ON ERROR" OR "LOOP ON TEST (SUBTEST)" FACILITIES DON'T 
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SEEM TO ALLOW THE OPERATOR TO ZERO IN A PROBLEM IN THE EARLY 
TESTS (I.E. THE HARDWARE MAY NOT BE RESPONDING TO A REGISTER 
ACCESS. CAUSING A BUS ERROR TRAP. EVEN THOUGH THE DEVICE ADDRESS 
SELECTED BY THE PROGRAM MATCHES THE CONFIGURATION SET UP IN THE 
HARDWARE DIP SWITCHES). THE FXLOUING MENU OF SCOPE LOOPS ARE 
AVAILABLE : 

CODE SCOPE LOO^ 

0 HELP. PRINT THIS MENU. 

1 TSBA READ ACCESS 

2 TSSR READ ACCESS 

3 INITIALIZE (TSSR WRITE ACCESS) 

4 TSOe HIGH BYTE WRITE ACCESS 

5 TSOB LOW BYTE WRITE ACCESS 

6 TSOB MAINTENANCE -MODE WORD WRITE ACCESS 

7 TSOBX (TSSR HIGH BYTE) WRITE ACCESS 

(EXTENDED FEATURES SWITCH MUST BE ON 
TO USE SELECTION CODE 7) 

8 EXIT (RETURN TO SUPERVISOR) 

FOR SCOPE LOOPS THAT WRITE INTO REGISTERS. THE PROGRAM PROMPTS 

THE OPERATOR FOR THE DATA TO BE WRITTEN.LIMITS ON THE DATA PATTENS 

ARE 0-S77. TYPING <RETURN> CAUSES AN EXIT FROM THE SCOPE LOOP BACK TO MENU LEVEL. 

7.0 MAINTENANCE HISTORY 



REVISION A . JUNE 1965 
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SEQ 016 



1 

2 

3 000000 
4 
10 

11 000000 

12 

13 

19 

20 

21 002000 
002000 

22 
23 
24 
25 
26 
27 
26 

29 002000 

30 002000 
002000 
002000 
002001 
002002 
002003 
002004 
002005 
002006 
002007 
002010 
002010 
002011 
002011 
002012 
002012 
002014 
002014 
002016 
002016 
002020 
002020 
002022 
002022 
002024 
002024 
002026 
002026 
002030 
002030 
002032 
002032 
002034 
002034 
002036 
002036 
002040 



.TITLE TSV2 - PROGRAM HEADER 
.SBTTL PROGRAM HEADER 
.PSECT ABS 



002000' 



103 
132 
124 

123 
102 
000 
COO 
000 

101 

060 

000000 

001217 

101112' 

101244' 

0021S6' 

002166' 

101340' 

000000 

000000 

000000 

000000 



.MCALL SVC 
SVC 

.ENABLE LC 
.NLIST BEX.CNO 
.ENABL AMA 
.-.*2000 
BGNMOO TSV2 

TSV2:: 

!*THE PROGRAn HEADER IS THE INTERFACE BETWEEN 
t THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 



I INITIALIZE SUPERVISOR MACROS 



LtNAMEi 



POINTER BGNSU.BGNSFT.BGNAU.BGMXJ.BGNRPT 
HEADER CZTSB.A.0.6S5..0 



.ASCII /C/ 
.ASCII /2/ 
.ASCII /T/ 
.ASCII /S/ 
.ASCII /B/ 



tOIAGNOSTIC NAME 



.BYTE 


0 




•BYTE 


0 




.BYTE 


0 




LtREVt: 




tREVISION LEVEL 


.ASCII 


/A/ 




LIDEPO:: 




iO 


.ASCII 


/o/ 


LtUNIT:: 




iNUMBER OF UNITS 


.UORD 


0 


LtTIft.ti 




iLONGEST TEST TINE 


.UORO 


655. 






{POINTER TO H.U. QUES. 


.UORO 


LtHARO 




LtSPCPt: 




tPOINTER TO S.U. QUES. 


.UORO- 


LISOTT 








iPTR. TO OEF. H.U. PTABLE 


.UORO 


L«HU 


L«SRTP:s 




tPTR. TO S.U. PTABLE 


.UORO 


L»SU 




LtLAOP:: 




lOIAG. END ADDRESS 


.UORO 


LtLAST 


LISTAm 




iRESERVEO FOR APT STATS 


.UORO 


0 


L»CO:: 






.UORO 


0 




LIOTYP:i 




{DIAGNOSTIC TYPE 


.UORO 


0 




LtAPTtt 




{APT EXPANSION 


.UORO 


0 


LtOTPt: 




{PTR. TO DISPATCH TABLE 
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G? 
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002040 


002124' 


002042 




002042 


000000 


002044 




002044 


000000 


002046 




002046 


000000 


002050 




002050 


003 


002051 


003 


002052 




002052 


000000 


002054 


000000 


002056 




002056 


000000 


002060 




002060 


003402' 


002062 




002062 


0224S4' 


002064 




002064 


000000 


002066 




002066 


000000 


002070 




002070 


022122' 


002072 




002072 


022220' 


002074 




002074 


000000 


002076 




002076 


003410' 


002100 




002100 


104035 


002102 




002102 


000000 


002104 




002104 


021326' 


002106 




002106 


022406' 


002110 




002110 


022326' 


002112 




002112 


021316' 


002114 




002114 


000000 


002116 




002116 


000000 


002120 




002120 


000000 



SEQ 019 



51 
52 
55 
54 
55 
56 
57 
58 



LtPRIO:: 
LIENVI:: 
LIEXPl:: 
L$mEV: : 

L»EF:: 

L»SPC:: 
LIOEVP: 
LIREPP: 
L$EXP4: 
LIEXP5: 
LIAUT 
LtOUT 
LILVJN 
LtOESP 
LtLOAO:: 
LIETP 
L»ICP 
LICCP 
LIACP 
LIPRT 
LITEST: 
LIOLY:: 
LIHIHE: 



UORO 

UORD 

.UORO 

.UORO 

.BYTE 
.BYTE 

.UORO 
.UORO 

.UORD 

.UORO 

UORO 

UORO 

UORO 

UORO 

UORO 

UORO 

UORD 

EHT 

.UORD 

.UORO 

.UORD 

.UORD 

.UORO 

.UORD 

.UORD 

.UORO 

.S8TTL 



L IDISPATCH 

I DIAGNOSTIC RUN PRIORITY 

0 

iFLAGS DESCRIBE HOU IT WAS SETUP 

0 

{EXPANSION WORD 

0 

tSVC REV AND EDIT « 
CIREVISION 
CIEDIT 

iOIAG. EVENT FLAGS 

0 
0 



0 

LIDVTYP 
LIRPT 
0 
0 

LtAU 
L9DU 
0 

LIOESC 
EILOAO 
0 

L9INIT 
L9CLEAN 
LI AUTO 
LIPROT 
0 
0 
0 

DISPATCH TABLE 



I POINTER TO DEVICE TYPE LIST 
tPTR. TO REPORT CODE 



tPTR. TO ADD UNIT CODE 
tPTR. TO DROP UNIT CODE 
iLUN FOR EXERCISERS TO FILL 
iPOINTER TO DIAG. DESCRIPTION 
{GENERATE SPECIAL AUTOLOAD EHT 
iPOINTER TO ERRTBL 
iPTfl. TO INIT CODE 
tPTR. TO CLEAN-UP CODE 
tPTR. TO AUTO CODE 
iPTR. TO PROTECT TABLE 
I TEST NUMBER 
I DELAY COUNT 
tPTR. TO HIGH MEM 



t THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
I IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST, 
i -- 



H2 



TSV2 PROGRAM HEADER 
DISPATCH TABLE 
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39 002122 
002122 
002124 
002124 
002126 
002130 
002132 
002134 
002136 
C02140 
002142 
002144 
002146 
002150 
002152 

40 
41 
42 
43 
44 
45 
46 
47 

48 002154 
002154 
002156 
002156 

49 

50 002156 

51 002160 

52 002162 

53 002164 
002164 

54 

55 
56 
57 
58 
59 
60 

61 002164 
002164 
002166 
002166 

62 

63 002166 

64 002170 
65 

66 

67 002172 

68 002174 

69 002176 
002176 

70 

71 002176 
72 



000014 

023216' 
024206' 
026200' 
031524' 
034314' 
040116' 
050230' 
051510' 
062336' 
066416' 
074260* 
077432' 



000003 



172520 
000224 
000200 



000004 



000000 
000000 



000017 
000310 



DISPATCH 12 

.UORD 12 
L IDISPATCH: : 

.UORD Tl 

.UORD T2 

.UORD T3 

.UORD T4 

.UORD T5 

.UORD T6 

.UORD T7 

.UORD T8 

.UORD T9 

.UORD TIO 

.UORD Til 

.UORD T12 



I 
I 
t 
I 



.SBTTL DEFAULT HARDUARE P- TABLE 



THE DEFAULT HARDUARE P-TABLE CONTAINS DEFAULT VALUES OF 
THE TEST -DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
IS IDENTICAL TO THE STRUCTURE OF THE RUN -TIME P-TABLE. 



LtHU:: 
OFPTBL: 



LIOOOO: 



BGNHU 
.UORD 



.UORD 
.UORD 
.UORD 
ENOHU 



OFPTBL 

L 10000 -LtHU/2 



172520 

224 

PRI04 



a DEFAULT HARD -P-TABLE 



1ST (OF 2) REGISTERS. 
INTERRUPT VECTOR 
INTERRUPT PRIORITY. 



.SBTTL SOFTUARE P-TABLE 



t THE SOFTUARE P TABLE CONTAINS THE VALUES OF THE PROGRAM 
t PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 



I-- 



L«SU:: 
SFPTBL; 



BGNSU 
.'MHO 



TRANSTST:i 
NOITS:: 



SFPTBL 

L 10001 -L«SU/2 



.UORD 0 
.UORD 0 



LERRMAX:: .UORD 15. 

GERRMAX:: .UORD 200. 

ENDSU 

L 10001: 

ENDMOD 



ENABLE TEST OF TRANSPORT(S) IF 
INHIBIT ITERATION OPTION. 
... 0 • ITERATE. 
...HZ - INHIBIT ITERATE. 
LOCAL (PER TEST) ERROR LIMIT 
GLOBAL (PER UNIT) ERROR LIMIT 



12 



TSV3 GLOBAL AREAS 
SOTTUARE P- TABLE 

7 

8 
13 
19 

20 002176 
002176 

21 
22 
23 
ZA 
25 
26 
27 
28 
29 

33 002176 
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SEQ 021 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 

001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



000040 
000037 
000036 
000035 
000034 



TSV3: 



.TITLE TSV3 GLOBAL AREAS 
.SBTTL GLOBAL EQUATES SECTION 



BGNMOO TSV3 



.SBTTL GLOBAL EQL)ATES SECTION 



I THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
I ARE USED IN MORE THAN ONE TEST. 
: - - 



EQUALS 
! BIT OIFINITIONS 



t GET STANDARD EQUATES. 



BIT15— 100000 
BIT14— 40000 
BITIS" 20000 
BIT12** 10000 
BITll" 4000 
BITIO" 2000 
BIT09>* 1000 
BIT08" 400 
BIT07" 200 
BIT06" 100 
BIT05— 40 
BIT04** 20 
BIT03» 10 
BIT02" 4 
BITOl" 2 
BITOO— 1 

BIT9" BIT09 

BITS" BIT08 

BIT?" 6IT07 

BIT6" BIT06 

BITS" BIT05 

BIT4" BIT04 

BITS" BIT03 

BIT2" BIT02 

Bill" BITOl 

BITO" BITOO 

! EVENT FLAG DEFINITIONS 

I EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 



EF. START" 32. 

EF. RESTART" 31. 

EF. CONTINUE" 30. 

EF.NEU" 29. 

EF.PUR-- 28. 
: 
I 



t START COMMAND MAS ISSUED 
I RESTART COMMAND MAS ISSUED 
t CONTINUE COMMAND MAS ISSUED 
I A NEU PASS HAS BEEN STARTED 
I A POUER-FAIL/POWER-UP OCCURRED 



TSV3 GLOBAL AREAS 
GLOBAL EQUATES SECTION 
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^EQ 022 



i PRIORITY LEVEL DEFINITIONS 



34 

55 002176 



OO0S40 
000300 
000240 
000200 
000140 
000100 
000040 
000000 



000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 



000250 

177572 
177574 
177576 
172516 



PRI07- 
PRI06- 
PRI05* 
PRI04- 
PRI03- 
PRI02- 
PRIOl- 
PRIOO- 



340 

300 

240 

200 

140 

100 

40 

0 



{OPERATOR FLAG BITS 



EVL- 
LOT- 
ADR- 
IDU- 
ISR- 
UAM- 
BOE- 
PNT- 
PRI- 
IXE- 
IBE- 
lER- 
LOE- 
HOE- 



•SBTTL 

i*KTll 

MMVEC- 

t*KTll 

SRO- 

SRl- 

SR2- 

SR3- 

.IF NB 

t*USER 

UIPORO 

UIPORl 

UIPDR2 

UIPDR3 

UIP0R4 

UIP0R5 

UIPDR6 

UIPDR7 

.IF NB 

(*USER 

UDPORO 

UDPDRl' 

UDPDR2 

U0PDR3 

UDP0R4' 

UDPDR5 

U0P0R6 

U0P0R7 



4 

10 
20 
40 
100 
200 
400 
1000 
2000 
4000 
10000 
20000 
40000 
100000 

Kill 

HEHQRY NANAGEMENT DEFINITIONS 
VECTOR ADDRESS 
250 

STATUS REGISTER ADDRESSES 
177572 
177574 
177576 
172516 

"I" PAGE DESCRIPTOR REGISTERS 
' 177600 

■ 177602 

- 177604 
' 177606 
' 177610 

■ 177612 

■ 177614 

> 177616 

"D" PAGE DESCRIPTOR REGISTORS 

- 177620 

• 177622 

■ 177624 

■ 177626 
' 177650 
' 177632 

> 177634 

• 177636 



i DEFINE MEMORY MANAGEMENT REGISTERS 



I<2 



TSV3 GLOBAL AREAS MACRO HI 113 
MEHORV MANAGEMENT DEFINITIONS 



Ol-FEB-84 17:02 



SEQ 023 



,ENDC 
I ♦USER • 
UIPARO- 
UIPARl* 
UIPAR2- 
UIPAR3- 
UIPAR4- 
UIPAR5- 
UIPAR6* 
UIPAR7- 
IF 

i*USER "D" PAGE ADDRESS REGISTERS 
UDPARO- 
UDPARl- 
UDPAR2- 
UDPAR3- 
UDPAR4- 
UDPARS- 
UDPAR6- 
UDPAR7- 
.ENDC 
.ENDC 
IF NB 

i*SUPERVISOR "I" PAGE DESCRIPTOR REGISTERS 
SIPORO- 172200 
172202 
172204 
172206 
172210 
172212 
172214 
172216 



'I" PAGE ADDRESS REGISTERS 
177640 
177642 
177644 
177646 
177650 
177652 
177654 
177656 



177660 
177662 
177664 
177666 
177670 
177672 
177674 
177676 



PAGE DESCRIPTOR REGISTERS 



SIPORl- 
SIP0R2- 
SIPDR3> 
SIP0ft4< 
SIPDR5* 
SIP0R6« 
SIPDR7* 
.If NB 

i*SUPERVISOR "D* 
SOPORO* 172220 
SOPORl" 172222 
SDPDR2- 172224 
SOPORS- 172226 
S0P0R4- 172230 
SOPORS- 172232 
SDP0R6- 172234 
SDP0R7- 172236 
.ENDC 

i*SUPERVIS0R "I' 
SIPARO- 172240 
SIPARl- 172242 
SIPAR2- 172244 
SIPAR3- 172246 
SIPAR4- 172250 
SIPAR5- 172252 
SIPAR6- 172254 
SIPAR7- 172256 
. IF NB 

i*SUPERVIS0R "0" PAGE ADDRESS REGISTERS 
SDPARO- 172260 
SDPARl- 172262 
S0PAR2- 172264 



PAGE ADDRESS REGISTERS 
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SEQ 024 



39 
40 
41 
42 
43 
44 
45 
46 
47 



172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 



172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 



SDPAR3- 172266 
S0PAR4- 172270 
S0PAR5- 172272 
S0PAR6- 172274 
S0PAR7- 172276 
.ENOC 
.ENOC 

i*KERNEL "I" PAGE OESCRIPTOR REGISTERS 
KIPORO- 172300 
KIPORl- 172302 
KIP0R2- 172304 
KIP0R3- 172306 
K1P0R4- 172310 
KIP0R5- 172312 
KIP0R6- 172314 
KIP0R7- 172316 
IF NB 

;*KERNEL "0" PAGE 
OESCRIPTOR REGISTERS 
KOPDRO- 172320 
172322 
172324 
172326 
1723S0 
172332 
172334 
172336 



KOPORl' 
K0P0R2> 
K0P0R3> 
KDP0R4* 
K0PDR5- 
K0P0R6> 
KDP0R7- 
.ENOC 

t*KERNEL "I" PAGE ADDRESS REGISTERS 
KIPARO- 172340 
172342 
172344 
172346 



172354 
172356 



KIPAR1< 
KIPAR2« 
KIPAR3' 

KIPAR4* 172350 
KIPAR5- 172352 
KIPAR6' 
KIPAR7" 
.IF NB 

t*KERNEL "D" PAGE ADDRESS REGISTERS 
KOPARO- 172360 
172362 
172364 
172366 
172370 
172372 
172374 
172376 



KOPARl 
KDPAR2 
K0PAR3 
KDPAR4 
K0PAR5 
KDPAR6 
KDPAR7 
.ENOC 



.SBTTL TSU05 REGISTER AND PACKET DEFINITIONS 



000004 



SOME GENERAL EQUATES. 



ERRVEC" 



i POINTER TO ERROR VECTOR FOR BUS TIME OUT. 



TSV3 GLOBAL AREAS 
TS005 REGISTER AND PACKE 



M2 



48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
lOS 
104 



000060 
177560 
177562 
177520 



100000 
040000 
020000 
010000 
004000 
002000 
001400 
000200 
000100 
000060 
000016 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



100000 
040000 
020000 
017375 
000400 
000002 
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TTivec-- 

TTICSR-- 
TTIBFR-- 
BDVPCR-- 



SEQ 025 



60 

177560 
177562 
177520 



I INTERRUPT VECTOR FOR CONSOLE INPUT 
I BUS ADDRESS OF CONSOLE INPUT 
I CONSOLE INPUT OATA BUFFER 
I BOVll PAGE CONTROL REGISTER 



sBIT DEFINITIONS FOR TSSR REGISTER 



SC- 
BIE- 
SCE- 
RMR- 
NXM- 
NBA- 
HI ADOR- 
SSR- 
OFL- 
FATERR- 
TERCLS- 



BIT15 

BIT14 

BIT13 

BIT12 

BITll 

BITIO 

BIT9!BIT8 

BIT7 

BIT6 

BIT4!BIT5 
BIT3!BIT2!BIT1 



J SPECIAL CONDITION 
iBUS INTERFACE ERROR 
I SANITY CHECK ERROR 
I MODIFICATION REFUSED 
jNONCXISTANT MEHORY ERROR 
I NEED BUFFER ADDRESS 
t EXTENDED ADDRESS BITS 
I SUB SYSTEM READY 
5 OFF LINE BIT 

{FATAL TERMINATION ERROR COOES 
I TERMINATION CODES 



8 BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0 

jCXSTO) 

: 

I - 

XSOTMK- BIT15 
XSORLS- BIT14 
XSOLET- BIT15 
XSORLL- BIT12 
XSOULE- BITll 
XSONEF- BITIO 
XSOILC- BIT9 
XSOILA- BIT8 
XSOflGT- BIT7 
XSOONL- BIT6 
XSOIE- BITS 
XSOVCK- BIT4 
XSOPED- BITS 
XSOULK- BIT2 
XSOBOT- 8IT1 
XSOEOT- BITO 



I TAPE MARK DETECTED 
I RECORD LENGTH SHORT 
I LOGICAL END OF TAPE 
{RECORD LENGTH LONG 
{WRITE LOCK ERROR 
{NON EXECUTABLE FUNCTION 
{ILLEGAL COMMAND 
{ILLEGAL ADDRESS 
{TAPE IN MOTION 
{TRANSPORT ON LINE 
{INTERRUPT ENABLE 
{VOLUME CHECK BIT 
{PHASE ENCODED DRIVE 
{WRITE LOCKED 
{BEGINNING OF TAPE 
lEND OF TAPE 



IbIT DEFINITIONS FOR EXTENDED STATUS REGISTER 1 
;CXST1) 



Xl.DLT - 
X 1. SPARE - 
XI. COR > 
Xl.MBZ - 
Xl.RBP • 
Xl.UNC - 



BIT15 {DATA LATE 

BIT14 {NOT USED 

BIT13 {CORRECTABLE DATA ERROR 

BIT12*BIT11*BIT10^BIT94BIT7^BIT6^BIT5*BIT4»BIT3*BIT2*BIT0 {ALWAYS 0 

BIT8 {READ BUS PARITY ERROR 

BITl {UNCORRECTABLE DATA OR HARD ERROR 
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105 




106 




107 




lOS 




109 




110 


100000 


111 


040000 


112 


035400 


113 


002000 


114 


000200 


115 


000100 


116 


000077 


117 


000007 


116 




119 




120 




121 




122 




123 


177400 


124 


000200 


125 


000100 


126 


000040 


127 


000020 


126 


000010 


129 


000006 


130 


000001 


131 




132 




133 




134 




135 




136 


100000 


137 


040000 


136 


020000 


139 


017400 


140 


000377 


141 




142 




143 




144 




145 




146 




147 




148 




149 


000006 


150 


000006 


151 




152 




153 




154 




ISS 




156 




157 




158 


000000 


159 


000000 


160 


000001 


161 


000001 



N2 
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!bit definitions for extended status register 2 

;(XST2) 

X2.0Pn - BIT 15 {OPERATION IN PROGRESS (TAPE MOVING) 

X2.RCE • BIT 14 iRAM CHECKSUM ERROR 

X2. SPARE- BIT13*BIT12«BIT11>BIT9*BIT6 sNOT USED BY TSUOS CALUAYS-0) 
X2.UCF - BITIO tURITE CLOCK FAILURE CFIFQ NOT EMPTIED BY TRANSPORT) 

X2.EXTF - BIT7 ;IF URITE CHAR CMD THEN - EXTENDED FEATURES ENABLED 

X2.BUFE - BIT6 tIF URITE CHAR CMD THEN - BUFFERI»IG ENABLED 

X2.REV <• 000077 iIF URITE CHAR CMD THEN - MICROCODE REVISION LEVEL 

X2.UNIT - BIT2»BIT1«BIT0 iIF GET STATUS THEN - CURRENTLY SELECTED UNIT NO. 

IbIT definitions for EXTENDED STATUS REGISTER 3 
t(XST3) 

X3.MDE • 177400 (MICRO-DIAGNOSTIC ERROR CODE 

X3. SPARE- BIT7 sNOT USED BY TSU05 

X3.nPI - BIT6 I OPERATION INCOMPLETE 

X3.REV - BIT5 (REVERSE 

X3.TRF - BIT4 (TRANSPORT RESPONSE FAILURE 

X3.DCK - BIT3 (DENSITY CHECK 

X3.MBZ -BIT2«BIT1 (NOT USED ALUAYS 0 

X3.RIB - BITO (REVERSE INTO BOT 

IbIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
((XST4) 

X4.HSP - BIT15 (HIGH SPEED 

X4.RCE • BIT14 (RETRY COUNT EXCEEDED 

X4.TSM - BIT13 (TRANSPORT SPECIAL MODE 

X4.MBZ - BIT12»BIT11»BIT10>BIT9«BIT6 (NOT USED ALUHYS 0 

X4.URC - 000377 (URITE RETRY COUNT FIELD 

(♦ 

!tSSR TERMINATION COOES (BIT 0-2) 
t 

(- 

TSREJ- 3*2 (COMMAND REJECTED 

UNREC- 6 (UNRECOVERABLE ERROR 

I* 

! DEVICE REGISTER OFFSETS 
t 

t - 

TSBA— 0 

TSDB-- 0 (TSD6/TSBA REGISTER 

TSBAH* ■ 1 

TSOBH— 1 (TSDB/TSBA REGISTER HIGH BYTE 
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162 
169 
164 
165 
166 
167 

lea 

169 
170 
171 
172 
17S 
174 
175 
176 
177 
176 
179 
180 
161 
162 
163 
164 
165 
166 
167 
166 
169 
190 
191 
192 
193 
194 
195 
196 
197 
196 
199 
200 
201 
202 
203 
204 
205 
206 
207 
206 
209 
210 
211 
212 
213 
214 
215 
216 
217 
216 



000002 
000003 



000003 



000017 
000013 
000012 
000011 
000010 
000006 
000005 
000004 
000001 



100000 
040000 
020000 
010000 
007400 
000200 
000140 
000037 



000000 



001000 
002000 
002400 



000167 
000200 
000201 
000210 
000215 
000234 



TSSR-- 2 
rSSRH— 3 



B3 



iTSSR REGISTER 

iTSSR REGISTER HIGH BtTE 



SEQ 027 



I TSOB ADDRESS BIT DEFINITIONS 



A1716 • BIT1*BIT0 
! *COrtMND DEFINITIONS 



•ADDRESS BITS 17:16 ARE IN 1:0 



P.GETSTAT ■ 17 

P.INIT - IS 

P.CONTROL • 12 

P.FOmAT • 11 

P. POSITION • 10 

P.URTSUB • 6 

P.URITE • 5 

P.URTCHAR • 4 

P.REAO • 1 

r CO W A ND PACKET HEADER yORO BIT DEFINITIONS 



iGET STATUS 
I INITIALIZE 
•CONTROL COHNANOS 
iFORHAT 
•POSITION 
•SUBSYSTEM URITE 
(URITF 

•URITE CHARACTERISTICS 
•READ 



P.ACK 
P.CVC 
P.OPP 
P.SMB 
P.NOOE 
P. IE 



Bins •BUFFER AVAIL FOR CONTROLLER 

BIT14 (CLEAR VOLUME C»CCK 

Bins (REVERSE SEQUENCE OF DATA BITS 

BIT12 (SIMP BYTES IN tCNORY 

BITll!BITl0fBIT9IBITB (EXTEIOEO COWMND NODE FIELD 



BIT7 



P.FNT- BIT6fBIT5 
P.CHO • 37 



(INTERRUPT ENABLE 
(PACKET HEADER TYPE (ALtMTS-0) 
(MAJOR COMMAND FIELD 



(♦ 



( CONTROL CO WA N D MODE CODES 



(- 



PC. RELEASE 
PC. REWIND 
PC.NOOP 
PC.IEREy 
PC. ERASE 



0«2S6. 
1*256. 
2*256. 
4*256. 
5*256. 



(RELCASE BUFFER 

(REMIND 

(NO-OP 

(REWIND IMMEDIATE INTERRUPT 
(SECURITY ERASE 



(♦ 



CONTROLLER RAM DEFINITIONS 



000006 



( 

(- 

. 167 
• 200 
RMPKTBEG- 201 
RMPKTEND* 210 
RMHSGBEG- 215 
RNMSGEND- 234 
• • 

{register DEFINITIONS 
I 

I - 

XST0-- 6 



•CHARACTERISTICS 10 DATA BEGIN RAM ADDRESS 
•CHARACTERISTICS 10 DATA END RAM ADDRESS 
•CO WA ND PACKET BEGIN RM1 ADDRESS 
•COMMAND PACKET END RAM ADDRESS 
•tCSSAGE BUFFER BEGIN RAM ADDRESS 
•MESSAGE BUFFER END RAM ADDRESS 



IN THE MESSAGE BUFFER 



lEXTE»AED STATUS REGISTER 0 (UORD 4) 



TSV3 
TSU05 



C3 



rEB-S4 17:02 



SEO 028 



219 
220 
221 
222 
225 
224 
225 
226 
227 
229 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 



000010 
000012 
000014 
000016 



XST1-- 8. 

XST2-- JO. 

XST3-- 12. 

XST4-- 14. 



I EXTENDED STATUS REGISTER 1 (UORD 5) 

•EXTENDED STATUS REGISTER 2 (WORD 6) 

•EXTENDED STATUS REGISTER 3 (WORD 7) 

lEXTEf«>ED STATUS REGISTER 4 (tJORD 8) 



000002 
000004 
000006 

000010 



000000 
000001 
000002 
000004 



000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000010 
000011 
000020 
000021 
000022 
000023 
000024 



000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 



PKLOU 


• 2 


iLOU ORDER CHARACTERISTIC DATA POINTER 


PKHI 


> 4 


iHIGH ORDER CHARACTERISTIC DATA POINTER 


PKBCNT 


- 6 


iNUHBER OF BYTES IN DATA PACKET 


EXBCNT- 


10 


iNUMBER OF BYTES IN EXTENDED DATA PACKET 


loATA PACKET OFFSETS FOR URXTE 


SUBS Y TEH COHMANO 


BSELO 


• 0 


tBVTE 0 


BSELl 


• 1 


iBYTE 1 


SEL2 


• 2 


lUORO 2 


SELCMTA 


• 4 


lUORD 3 


IbSELO SELECT C006S FOR URXTE 


SVASYSTEH COHHAND 


PU.NOP 


• 0 


iNO-OP 




• 1 


iREAO RAH 


PU.UTRAH 


• 2 


lURITE RAH 


PW.UFXFQ 


- 3 


iREAO FIFO 


PU.iriFO 


- 4 


lyRTTE FIFO 


PU.ROSTAT 


■ 5 


iREAO STATUS 


PU.yCTL 


- 6 


tURITE TAPE CONTROL 


PU.KFHT 


• 7 


lURITE TAPE FQfmAT 


PU.UHISC 


• 10 


tMBITE niSCELLANEOUS 


rm m WW9rf\ 


• \l 


tlMITE t9n CONTROL 


PU.022 


• 20 


tOO niCROTEST 22 


PU.Oll 


- 21 


iDO mCROTEST 11 


PU.015 


- 22 


lOO tflCROTEST 13 


PU.N01311 


- 23 


{DISABLE HICROTEST 11 AND 13 


PU.ROCXT 


•> 24 


iREAO EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS 



iBSELl COOES FOR URXTE TAPE CONTROL 

UC.IFAD • BIT7 iIFAD - 

UC.IOTAD ■ BIT6 iITADO 

UC.XITAO - BIT5 iITAOl 

UC.I5RESV - BIT4 |IRESV5 

UC.IREU ■ BITS iIREU 

UC.XRUU • BIT2 iIRMi 

UC.IFEN - BITl iXFEN 

UC.IGO • BITO iGO 



FORHATTER ADDRESS 

- TRANSPORT ADDRESS BIT 0 

- TRANSPORT ADDRESS BIT 1 

- RESERVED •S 

• REUIND 

- REUIND AND UNLOAD 

• FORHATTER ENABLE 



TSV3 GLOBAL 
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iBSELl COOES 


FOR URITE FORMAT 






1 ' 




279 


000200 


UF.IHISP 


« BIT7 


280 


000100 


WF.IHRT 


■ BIT6 


281 


000040 


Ur . IREV 


" BITS 


282 


000020 


UF.iyFH 


" BIT4 


283 


000010 


yF.IEDir 


• BITS 


284 


000004 


UF . lERASE 


• BIT2 


285 


000002 


UF . I3RESV 


• BITl 


286 


000001 


UF.I4RESV 


- BITO 


287 








288 








289 








290 




iBSELl COOES 


FOR URITE MISCEL 


291 








292 


000200 


MS. EXT 


■ 8IT7 


293 


000020 


MS.RSFIFO 


• BIT4 


294 


000010 


nS.RSTAPE 


• BITS 


29"i 


000006 


nS.ATTN 


• BIT2!6IT1 


296 


000001 


ns.RSO 


• BITO 


C97 








298 




1 nS.ATTN SUBCODES 


299 




t - 




300 


000000 


HSA.NOP • 0*2 


301 


000002 


HSA.VOL - 1*2 


302 


000004 


HSA.I 


WAN* 2*2 


303 


000006 


HSA.FRMI- S*2 


304 




1 * 




305 




1 MZTE SUBSYSTGN MITE NPfl fl 


306 








307 


000200 


I^.ZR 


• BIT? 


308 


000100 


»#».OUT 


• BIT6 


309 


000040 


I^.LOQP 


• BITS 


310 


000020 


• WHP 


• BIT4 


311 




1 * 




312 




1 REM) STATUS MESSAGE SUFFER 


313 




1 - 




314 






315 


000200 


S2.0ZH 


• BIT? 


316 


000100 


S2.ZLU 


• BIT6 


317 


000040 


S2.0UTRDY 


• BITS 


318 


000020 


S2.ZNR0Y 


- BIT4 


319 


000010 


S2.ATZnR 


• BITS 


320 


000004 


S2.BTZnR 


• 6IT2 


321 


000003 


S2.UN0EF 


- BIT1*BIT0 


322 


100000 


Sl.PARZN 


• BITIS 


323 


040000 


S1.Z2RESV 


- BIT14 


324 


020000 


Sl.ZlRESV 


• BIT13 


325 


010000 


Sl.IEOT 


• BIT12 


326 


004000 


Sl.IZOENT 


- BITll 


327 


002000 


Sl.ZCER 


• BITIO 


328 


001000 


Sl.ZFHK 


• BIT9 


329 


000400 


Sl.ZHER 


• BITS 


330 


000200 


SO.ISPEEO 


• BIT7 


331 


000100 


SO.IROY 


- BIT6 


332 


000040 


SO.IONL 


• BITS 



SEQ 029 



I IHISP 
llURT 
I IREV 
iIUFn 
lIEOIT 
lIERASE 
t IRESVS 
I IRESV4 



HIGH SPEED 

URITE 

REVERSE 

URITE FILE MARK 

EDIT 

ERASE 

RESERVEO «? 
RFSERVEO «4 



I INVERT SENSE OF EXTEIOED FEATURES SUITCH 

I RESET FIFO AND I>^T PARITY ERRORR 

I RESET TAPE STATUS IN 2 FLIP-FLOPS 

t ATTENTION TRIGGER FIELD 

iRESET TIMER A.B THEN DELAY TIMES IN SEL2 



iNO-OP (NOTHING TRIGGERED) 

iSINULATE ON-LINE/OFF -LINE TRANSISTION 

iFORCE NON-FATAL RAH ERROR (FORCES ERRCODE 54) 

iFORCE FATAL RAH ERROR (CAUSES SCE TO SET) 



{INTERRUPT REQUEST (0-1 TRANSITION) 

I TAPE DATA DIRECTION OUT (0- IN) 

iENABlE TRANSPORT LOOPBACK 

iMITE CORRECT PARITY (SET-0 TO URITE URONG) 



UORD 49 BYTE 2 DATA IN HISS 
ILU H 
OUT ROY H 
IN RDY H 
TIHER A FLAG H 
TIHER B FLAG H 

(UNDEFINED) 

UORD #8 BYTE 1 PARIN H 

IRESV2 

IRESVl 

lEOT L 

IIOENT H 

ICER H 

IFMK H 

IHER H 
UORO 46 BYTE 0 ISPEEO H 

IROY L 

lONL L 



E3 
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333 000020 SO.ILOP - BIT4 i ILOP L 

334 000010 SO.IOBY - BITS i lOBY L 

335 000004 SO.IRUD - BIT2 i IRUD L 

336 000002 SO.IFBY - BITl i IFBY L 

337 000001 SO.IFPT • BITO i IFPT L 

338 i* 

339 iUNIBUS MAP OEFINATIONS 

340 i- 

341 170200 mRO- 170200 
342 

343 

344 .S6TTL SPECIAL HACROS AND OPOEFS. 

345 

346 

347 I* 

348 I SAVE GENERAL REGS 1 TO 5 

349 t- 
350 

351 .HACRO SAVREG 

352 JSR RS.REGSAV 

353 .ENOn 
354 

355 I* 

356 t HACRO TO FORCE AN ERROR 

357 I- 

358 .HACRO FQRCERROR TAG.NOTSSR 

359 .NLIST 

360 .IIF NOF LISTALL. .NLIST 

361 .LIST 

362 .IF B NOTSSR 

363 nOV TSSR(RS).R1 iREAO TSSR 

364 EM)C 

365 ' HOV FORCER.FORCER tlS FORCER SET? (LEAVE C BIT ALONE) 

366 BNE TAG iBR IF YES 

367 .NLIST 

368 .IIF NOF LISTALL. .LIST 

369 .LIST 

370 .ENOH 

371 

372 t* 

373 t HACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 

374 , UILL EXIT TO A LABEL IF FORCER IS NEGATIVE 

375 t SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET 

376 I FORCER TO 177777 

377 I TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 

378 I- 

379 .MACRO FORCEXIT TAG 

380 .NLIST 

381 .IIF NDF LISTALL. .NLIST 

382 .LIST 

383 HOV FORCER.FORCER iIS FORCER NEGATIVE? 

384 BHI TAG )BR IF YES 

385 .NLIST 

386 .IIF NDF LISTALL. .LIST 

387 .LIST 

388 .ENOH 
589 »♦ 



F3 



TSV3 • QOBAL AREAS MACRO Mil 13 
SPECIAL MACROS AND OPOEFS. 

590 
591 
592 
595 
594 
595 
396 
597 
598 
399 
400 
401 
402 
403 
404 
405 
406 
407 
406 
409 
410 

411 000000 

412 

413 

414 

415 

416 

417 

41S 

419 002176 000000 
420 
421 
422 
425 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
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> 031 



I MACRO TO INCREMENT ERROR COUNTS 

! MACRO NEXT.ERRNO 
.NLIST 

ili.IIF NOF LISTALL, .NLIST 

ERRN0-ERRN0»1 
iti.IIF NOF LISTALL. .LIST 
.LIST 
.ENOM 

I MACRO TO PERFORM XOR 
t - 

.MACRO XOR A.B 
MOV A,-(SP) 
BIC B.(SP) 
BIC A.B 
BIS (SP)*.B 
.ENOM 

EN-0 I INITIALIZE ERROR NUMBER 

.SBTTL FORCER - FORCE ERROR FLAG 

! THE FOLLOWING LOCATIONS NAY BE PATCHED BY THE USER 
i TO OBTAIN THE RESULTS OESCRIBEO FOR EACH. 



FORCER:: 



0 I FORCE TYPE ALL HARD ERRORS (THE ONES CALLED 
t • BY THE NACRO "IFERROR"). AN ERROR NEED NOT 

1 • EXIST. JUST ASSUME AND TYPE THE MESSAGE. 



.SBTTL GLOBAL DATA SECTION 

!thE global MTA SECTION CONTAINS DATA THAT ARE USED 
tIN MORE THAN ONE TEST. 
I - - 



I THE rOLLOUINC DATA 
I SINGLE UNIT DEFAULTS 



002200 


000000 


EPRTSU: t 


.UORD 


0 


002202 


000000 


UNITN:: 


.UORO 


0 


002204 


000000 


Q VP * * 


.UORD 


0 


002206 


000000 


CSRAODR:: 


.UORD 


0 


002210 


000224 


IVEC:: 


.WORD 


224 


002212 


000200 


IPRIt: 
TSTCNTj: 


.WORD 


PRI04 


002214 


000000 


.WORD 


0 


002216 


000000 


LOOPCNT:: 


.WORD 


0 


002220 


000000 


DEVCNTt: 


.WORD 


0 


002222 


000000 


FATFLGs: 
INTRECV:: 


.WORD 


0 


002224 


000000 


.WORD 


0 



SET FOR EACH UNIT AT INIT TIME. 
(LISTED) ARE IN THE DEFAULT P-TABLE. 

iPRINT SWITCH 
tUNIT * UNDER TEST. 
I QUICK VERIFY FLAG. 
I ADDRESS OF CSR FOR CURRENT DEVICE 
I INTERRUPT VECTOR 
I INTERRUPT PRIORITY. 
I NUMBER OF TESTS RUN IN THIS PASS 
(REMAINING ITERATION COUNT FOR TEST 
(NUMBER OF DEVICE UNDER TEST 
iSET IF FATAL ERROR IS DETECTED IN TEST 
I SET IF TAPE INTERRUPT WAS RECEIVED 



G3 



TSVS - GLOBAL AREAS 
GLOBAL DATA SECTION 



MACRO MlllS 01 FEB-84 17:02 



SEQ 032 



447 002226 
446 002230 

449 0022S2 

450 002234 

451 002236 

452 002240 

453 002242 

454 002302 

455 002304 

456 002306 

457 002310 
45« 002312 

459 002314 

460 002316 

461 002320 

462 002322 

463 002466 

464 002632 
465 

466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 

483 002752 

484 002752 

485 002754 

486 002756 
48'' 002760 

488 002762 

489 002764 

490 002766 

491 002770 

492 002772 

493 002774 

494 002776 

495 003000 

496 003002 

497 003004 

498 003006 

499 003010 

500 003012 

501 003014 

502 003016 

503 003020 



000000 
000000 
000000 
000000 
000000 
000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
177777 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 
177776 
177775 





unpn 


A 
V 


iPVTPMnPn rPATiAPc cnrTunDP cu Aanrr.i^Afti 






A 
V 


eflij^rpp PMARi P quttpm cu AaOPr « 1 






A 
V 


• PXPPrTFn PAM DATA PflQ PQAHDKT DmiTTMP 






A 
V 


• PPrPTwpn PAH nATA rno ppahdi^t doiitti^ 




UQRD 


A 
V 


tHTHM Annppcc mpmhpy pppod 




UORD 


0 


il OU ADDPPC<; mpmhry ppphq 




RLKU 


Aw • 


tOATA OP AD PROM PAH PAPKPT OO MPCQAItc Bif adpa 




UORD 


0 


iRAM data ^I7P for PRAMPKT ROUTTItf 




UORD 


0 


iRPCPlVPD BUFFPR HT04 AOORPC^ 


RCVLOAOO:: 


.WORD 


0 


1 RECEIVED BUFFER LOU ADDRESS 


COUNT* • 


UORD 


0 


tTEST CQLMT PATTERN 


DATA:: 


.WORD 


0 


iTEST DATA 


TSTFLAG: : 


• WORD 


0 


iTEST FLAG UORD 


TSTPTR:: 


.WORD 


0 


1 TSTBLK POINTER 


PRftW:: 


.WORD 


0 


1 PRINT ROUTINE TEMP 


EXPnSG:: 


.BLKB 


100. 


1 EXPECTED MESS;U;E BUFFER DATA 


RECnSG:: 


.BLKB 


100. 


•RECEIVED MESSAGE BUFFER DATA 


THPBFR:: 


.BLKB 


60. 


iTEMPORmRY storage for PRINT 


.SBTTL 


TSTBLK 


- TEST 


DATA TABLE 



THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 

IN SEQUENCE THE DATA IS: 

ALL ZEROS 
ALL ONES 
UALKING ONES 
UALKING ZEROS 

ALTERNATING ONES AND ZEROS 



TSTBLK:: 



.UORO 


0 


.UORD 


177777 


.UORD 


BITO 


.UORD 


BITl 


.UORD 


BIT2 


.UORD 


BITS 


.UORD 


BIT4 


.UORD 


BITS 


.UORD 


BIT6 


.UORD 


BIT7 


.UORD 


BIT8 


.UORD 


BIT9 


.UORD 


BITIO 


.UORD 


BITll 


.UORO 


BIT 12 


.UORD 


BIT13 


.UORD 


BIT 14 


.UORD 


BIT15 


.UORD 


tCBITO 


.UORD 


tCBITl 



(ALL ZEROS 
(ALL ONES 

iDATA FOR UALKING ONES 



I DATA FOR UALKING ZEROS 



H3 



177775 


.WORD 


tCBIT2 


177767 


.WORD 


tC8IT5 


177757 


.UORD 


tC8IT4 


177757 


.UOftO 


tCBITS 


177677 


.WORD 


tceiT6 


177577 


.WORD 


tCBIT7 


177577 


.WORD 


tCBITS 


176777 


.WORD 


♦CBIT9 


175777 


.WORD 


tCBITlO 


175777 


.WORD 


tCBITll 


167777 


.WORD 


tCBIT12 


157777 


.WORD 


tCBIT15 


157777 


.WORD 


♦CBIT14 


077777 


.WORD 


tCBITlS 


125252 


.WORD 


125252 


052525 


.WORD 


052525 


005062' 


TBLENO--. 





000000 
000000 



TSV5 GLOBAL AREAS MACRO rilll5 01-FE8-84 17:02 
TSTBLK • TEST DATA TABLE 

504 005022 

505 005024 

506 005026 

507 005050 
50e 005052 

509 005054 

510 005056 

511 005040 
51?. 005042 
515 005044 

514 005046 

515 005050 

516 005052 

517 005054 
516 005056 
519 003060 
520 
521 
522 
523 
524 
525 
526 

527 005062 
526 003072 
529 
530 
531 

532 003112 
533 

534 003114 
535 

536 003116 

537 003120 
536 003122 

539 003124 

540 003126 

541 003130 

542 003132 
543 
544 

545 003134 

546 003136 

547 003140 
546 003142 

549 003144 

550 003146 

551 003150 

552 003152 

553 003154 

554 003156 

555 003160 

556 003162 

557 003164 

558 003164 

559 003166 

560 003170 



SEQ 055 



I ALTERNATING ONES. ZEROS 

tALTERNATING ONES. ZERO OPPOSITE FROn AeOVE 



.SBTTL GLOBAL ENVIRONMENT STORAGE 
! STORAGE FOR DEVICE REGISTERS 



000000 100000 
000000 000000 



000000 



000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
002000 
000000 
000000 
000000 
000000 

000000 
000000 
000000 



DUMMY: 

DUFLG:: 

NODEV:: 

TWl:: 

TEMP2:: 

XXCOMM: ; 

FREE:: 

FRESIZ:i 

FREEHI: 

KTFL6: : 



0 . 100000 .0.0 t DUMMY DEVICE REGISTERS . . . 
O.O.O.O.O.O.O.v 

t...FOR MULTI-UNIT CHECKOUT. 



.WORD 



KTENABLE:: 

NXMFLG:: 

NXMLO:: 

NXMHI:: 

T23A: : 

T238:: 

T38FLG: : 

PST32U: : 

SIFLAG: : 

BAOOAT:: 

GDOAT:: 

LOOPFL:: 

CTAB:: 

CTABM:: 



.UORD 

.WORD 

. UORD 
.UORD 
.UORD 
.UORD 
.UORD 
0 

.UORD 



.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 



0 

0 

0 
0 
0 
0 
0 



0 
0 
0 
0 
0 
0 
0 

2000 

0 

0 

0 

0 



.UORD 0 
.UORD 0 
.UORD 0 



t "DROPPED UNIT" FLAG. 
(INHIBITS CODE IN "CLEAN-UP". 
sFLAG TO SAY NO DEVICE. 

tSOME TEMP LOCATIONS. 

jXXOP* COMM BLOCK POINTER. 
tlST FREE MEMORY AOOTXSS... 
t...ANO SIZE (IN UORDS). 
iLAST UORD IN FREE SPACE 

tKTll. MEM AVAIL FLAG • 

t- .UORD 0 • <24K OR NO KT - 

t- NZ - >24K AND KT. 

tSET BY TEST ROUTINES TO FLAG >26K UNDER TEST 

tSET IF UE CAN TEST aEARED' OTHERUISE 

tNXM LO ADDRESS BITS 

tNXM HI ADDRESS BITS FOR DAL'S 16-21 

t PROCESSOR TYPE FLAG 

t PROCESSOR TYPE FLAG B 

tTEST 36 FLAG tO 

i32U BLOCK ADDRESS FOR S2K START 

! ACTUAL DATA 
(EXPECTED DATA 

tCONFICURATION TABLES. 
I CONFIG UORK. 



TSV3 - GLOBAL AREAS MACRO H1113 
GLOBAL ENVIRONMENT STORAGE 



561 003172 

562 005174 

563 005176 
564 

565 
566 
567 
56S 
569 
570 
571 
572 

575 005176 
574 005576 
575 

576 005400 
577 

578 
579 
590 
581 
582 
585 
584 
585 
586 
587 
588 
589 
590 

591 003402 
003402 
005402 

592 
600 
601 
602 

603 003410 
003410 
003410 



OOOOOO 
177777 



OOOOOO 
OOOOOO 



124 



123 



125 



052 



052 



052 



13 



01 FEB -84 17:02 



SEQ 034 



.WORD 0 

.WORD -1 lEND OF MEM TABLE, 

CTABE* • 

ERROR STATISTICS TABLE (1 UORO PER UNIT). 64 UNITS MAX: 



0 

100000 
lOXXXX 
160000 
160001 
14XXXX 



ERTABL: 
ERTABE: 

SKIPT: 



.BLKU 
.UORO 



UNIT NOT TESTED 

UNIT ONLINE. NO ERRORS 

UNIT ONLINE. ENCOUNTERED XXXX ERRORS 

UNIT DROPPED. NON-EXISTENT DEVICE REGISTER 

UNIT DROPPED. NOT IDLE AT START 

UNIT DROPPED. ENCOUNTERED XXXX ERRORS 

64. 
0 



.WORD 0 tl-SKIP SUBTEST 0-NO SKIP OF SUBTEST 

.SBTTL GLOBAL TEXT HESSAGES 

I^THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS. 
I MESSAGES. AND ASCII INFORMATION THAT ARE USED IN 
i MORE THAN ONE TEST. 

i - - 



{NAMES OF DEVICES SUPPORTED 



OEVTYP <TSU05> 
LIOVTYP:: 

.ASCI2 /TSU05/ 
.EVEN 

I TEST DESCRIPTION 



LtDESC: 



DESCRIPT <*«** TSU05 OIAG PART 2 - REPLACE M7455 IF ERROR 

'.ASCIZ /**•* TSU05 OIAG PART 2 - REPLACE M7455 IF ERROR ****/ 
.EVEN 



604 














618 














619 














620 














621 










I* 




622 










iBIT TO ASCII CONVERS 


623 










i - 




624 












625 


003476 


003536' 


003541* 


003545' 


TSSRBIT:: 


.UORD 


626 


003516 


005577- 


003603' 


003607' 




.WORD 


627 


003536 


123 


103 


000 


Its .ASCIZ 


'SC 


628 


005541 


102 


111 


105 


2»: .ASCIZ 


'BIE' 


629 


003545 


123 


103 


105 


3«: .ASCIZ 


•SCE' 


630 


003551 


122 


115 


122 


4$: .ASCIZ 


'RMR' 


631 


003555 


116 


150 


115 


5«! .ASCIZ 


'NXM' 



l».2l.5».4«.5t.6$.7t.8t 
9t.lO*.llt.l2t.l3*.14$.lSt.l6» 



J3 



TSV3 - GLOBAL AREAS 
GLOBAL TEXT MESSAGES 



MACRO M1113 Ol-FEB-64 17:02 



SEQ OSS 



632 003561 

633 003565 

634 003572 

635 003577 

636 003603 

637 003607 
636 003614 

639 003621 

640 003626 

641 003633 

642 003640 
643 

644 003646 

645 003701 

646 003734 

647 003773 

648 004014 

649 004054 

650 004113 

651 004117 

652 004146 

653 004211 

654 004215 

655 004252 

656 004274 

657 004331 
6Sa 004403 
659 004453 
660 

661 004523 

662 004524 

663 004527 

664 004S6S 

665 004637 

666 004741 

667 005007 

668 005052 

669 005107 

670 005202 

671 005274 

672 005366 

673 005454 
674 

675 
676 
677 
678 
679 
680 
681 
682 
683 

684 005550 
005550 

685 005550 
005550 
005554 



116 
102 
102 
123 
117 
102 
102 
102 
102 
102 
102 

124 
124 
040 
045 
045 
045 
045 
040 
040 
045 
040 
040 
045 
040 
040 
040 

000 
045 
045 
045 
045 
122 
040 
127 
124 
124 
106 
105 
045 



102 
111 
111 
123 
106 
111 
111 
111 
111 
111 
111 

123 
123 
040 
101 
101 
101 
116 
040 
040 
116 
040 
040 
101 
040 
040 
040 



116 
101 
116 
101 
101 
040 
122 
123 
123 
101 
122 
116 



101 
124 
124 
122 
114 
124 
124 
124 
124 
124 
124 

123 
123 
116 
040 
040 
040 
045 
125 
111 
045 
116 
111 
040 
042 
042 
042 



000 
040 
045 
040 
115 
103 
111 
123 
123 
124 
122 
045 



6<: 
It: 
8t: 
9t: 
101 
l)i 
12 » 
13» 
14 1 
151 
161: 



SFIERR: 

SFMERR: 

NXR: 

NXRX: 

TSSXi 

FUSI: 

USI: 

NSI: 

FNOINTR: 

NOINTR: 

IFAULT: 

INTX: 

NOINIT: 

NSINIT: 

BRINIT: 

NUL: 

NULCR: 

EXPGOT: 

EXPGT2: 

DUM012: 

PKTRAM: t 

SCME: 

URTMSG: 

URTERRt 

ROERR: 

SCHERR: 

RETERR: 

NOMEM: 



.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCII 

.ASCIZ 

.ASCII 

.ASCIZ 

.ASCIZ 

•ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



'NBA* 

•BIT9' 

'BITS' 

'SSR' 

'OFL' 

'BIT5' 

•BIT4' 

'BIT3' 

'BIT2' 

'Bill' 

•BITO' 

'TSSR ERROR AFTER SOFT INIT' 

'TSSR ERROR AFTER BUS RESET' 

/ NON-EXISTANT DEVICE REGISTER/ 

/«A ADDRESS: «06/ 

/«A TSBA.TSSR EXP'O: «06tfA.«06<(N/ 

/«A TSBA.TSSR REC'O: «06tfA,it06/ 

/M4ltA/ 

/ UNEXPECTED INTERRUPT/ 
/ INTERRUPT EXPECTED. NOT RECEIVED/ 
ASCII /<N<A/ 
/ NO INTERRUPT MAS GENERATED/ 
/ INTERRUPT FAULT/ 
/tfA CPU PC: «06«A TSBA: 1*06/ 
/ "BUS-INIT- DIDN'T INITIALIZE CONTROLLER/ 
/ "SOFT-INIT" DIDN'T INITIALIZE THE OPU/ 
/ "BUS-RESET" DIDN'T INITIALIZE THE OPU/ 

// 

/tfN/ 

/M EXP'O: «06tfA. REC'D: K06/ 

/«NM EXP'O: «06«A. «06«NM REC'D: «0M. itOf>/ 

/«A REG(U) WRITTEN TO: «06tfA REG(R) REAOt EXPO. «06«A. REC'D: «06/ 
.ASCIZ 'RAN Contents Do Not Natch Poekot S«nt' 
/ CONFIG DOESN'T HATCH HFG. MASTER/ 
'WRITE CHARACTERISTICS FoUod' 

•TSSR Incorroet Aftor WRITE Commond. Nor* Bit* Sot Thon SSR' 
'TSSR Incorroet Aftor READ Coanond. More Bito Sot Than SSR' 
'FATAL ERROR IN SUBTEST • CHECK TAPE. CABLES. TRANSPORT etc' 
•ERROR IN SUBTEST - WRITE DATA RETRY FIVE TIHES FAILED' 
•tfNKA ***** NO NXH ADDRESS • -CANNOT TEST NXN TIMEOUT. *****0N' 



.SBTTL GLOBAL ERROR REPORT SECTION 

TthE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX 

t CALLS THAT ARE USED IN MORE THAN ONE TEST. 

I ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 

I - - 



NXRERR: : 



013746 
012746 



003114' 

003773' 



BGNMSG NXRERR 

■ 

' PRINTX •NXRX.NOOEV 

MOV NODEV.-(SP) 

MOV «NXRX.-(SP) 



tNON-EXISTANT DEVICE REGISTER. 
iNOOEV • NEXM ADDRESS. 



I<3 



TSV3 • GLOBAL AREAS MACRO MlllS 
GLOBAL ERROR REPORT SECTION 



005560 
005564 
005566 
005570 

686 005574 

687 005600 
005600 
005600 

688 
689 
690 
691 
692 
693 

694 005602 

695 005604 

696 005606 

697 005610 

698 005614 
005614 
005620 
005624 
005626 
005630 

699 0<S634 
700 

701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 

719 005636 

720 005636 

721 005642 

722 005644 
005644 
005646 
005652 
005656 
005660 
005662 

723 005666 

724 005670 

725 005674 



012746 000002 

010600 

104415 

062706 000006 
004737 005602' 



104423 



005727 
000000 
001402 

004777 177770 

012746 004524' 
012746 000001 
010600 
104415 

062706 000004 
000207 



010104 
010446 

012746 006227' 
012746 000002 
010600 
104414 

062706 000006 
010400 

004737 015654' 
103410 



01 -FEB 84 17:02 



MOV 

MOV 

TRAP 

ADD 

JSR 

ENOMSG 



SEQ 036 



•2.-CSP) 
SP.RO 
CIPNTX 
«6.SP 
PC. EXTEND 



i PRINT EXTENSION IF REQUIRED. 



L 10002: 



TRAP CIMSG 



! THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED) 
I TO ANY OF THE ABOVE ERROR SIGNATURES. 



EXTEND: 


TST 


(PC)* 




EXTA: 


0 




t 0 - NO EXTENSION. 




BEQ 


1» 






JSR 


PC.8EXTA 


1 APPEND EXTENSION TEXT. 


11: 


PRINTX 


•NULCR 


1 PRINT A BLANK LINE 




NOV 


«NULCR,-(SP) 






NOV 


♦l.-CSP) 






NOV 


SP.RO 






TRAP 


C»PNTX 






ADD 


•4.SP 






RTS 


PC 






.SBTTL 


PRITSSR - PRINT 


TSSR CONTENTS 



t 



iROUTINE TO DISPLAY THE CONTENTS. AND BIT DEFINITIONS. OF 
tTHE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
tBY A MESSAGE PRINTING ROUTINE 



t INPUTS: 
t 

t Rl 
{subordinate ROUTINES: 



CONTENTS OF TSSR 



t 
t 
I 

8 * 

PRITSSR: 



CHKAMB CHECK FOR AMBICUOUS CONTENTS 



SAVREG 

MOV R1.R4 

PRINTB «TSSRF0R.R4 

MOV R4.-(SP) 

MOV «TSSRFOR,-(SP) 

MOV ♦2.-(SP) 

MOV SP.RO 

TRAP CIPNTB 

ADD •6.SP 

MOV R4.R0 

JSR PC. CHKAMB 

BCS 5» 



I SAVE GENERAL REGISTERS 
iSAVE THE TSSR CONTENTS 
I PRINT THE CONTENTS OF TSSR 



I GET TSSR BACK FOR CHKAMB 
{ARE CONTENTS AMBIGUOUS ? 
t BRANCH IF NOT 



TSVS - GLOBAL AREAS MACRO N1115 01 FEB-84 17:02 
PRITSSR - PRINT TSSR CONTENTS 



L5 



SEQ 057 



7^ 


AA^A 7 A 








» ^ X<^ 1 A 


i^AMBTSSR 


(SHOW CONTENTS ARE AMBIGUOUS 




* o 


w XC • 


006447* 

VwV*V"* » 




HOV 


MMBTSSR.-CSP) 






ftft^70P 


Vic r *tO 


VwwwwX 




MOV 


<M.-CSP) 






AAS70A 








MOW 


SP.RO 






AAS710 

WW J 1 ^ w 


1 A441S 






TRAP 


CIPNTX 






OOS71P 

WW J ' 




wwwww^ 




ADD 

"WW 


♦4.SP 




7P7 


WW J r Xw 


r^l A405 






MOV 

• iwW 


R4.R3 


I CONTENTS OF TSSR 


• CO 


ww.^ « Cw 


O42705 


001476 




BIC 


♦HIAD0R!FATERR!TERCLS.R3 i CLEAR ALL MULTIPLE 


7P9 




AA1454 






BEQ 


201 


iNO BITS ARE SET 


710 


OOS7P6 

WWaJ r G V 


w • wC 


002652' 

wwC Vv'C 




MOV 


dTMPBFR,R2 


1 TEMPORARY ASCII BUFFER 


731 


005752 

Vw^ ■ 


012701 

WXC ' W X 


003476' 




MOV 


i^TSSRBIT.Rl 


1 ASCII EQUIVALENT OF BITS 




OOS756 


OOS705 

WW^ 1 WW 




101 : 


TST 


R3 


{REMAINING BITS TO CONVERT 


753 


005740 


001413 






BEQ 


151 


1 BRANCH WHEN ALL ARE DONE 


754 


OOS742 

ww^ 1 ~ Ci 


000241 






CLC 




{CLEAR CARRY FOR SHIFT 


735 


005744 


006103 






ROL 


R3 


1 SHIFT NEXT BIT TO CARRY 


756 


005746 


103006 






BCC 


13$ 


{BRANCH IF BIT NOT SET 


737 


005750 


011100 






MOV 


(R1)»R0 


s POINTER TO BIT DEFINITION 


756 


005752 


112022 




111 : 


MOVB 


CR0)«'.CR2)«- 


{MOVE ASCIZ TO BUFFER 


739 


005754 


001376 






BNE 


11$ 


iMOVE ALL BITS 


740 


005756 


112762 


000054 177777 




MOVB 


♦' . . -1(R2) 


{INSERT A COMMA TO TERMINATE 


741 


005764 


005721 




131; 


TST 


CRl)^ 


{POINT TO NEXT DESCRIPTION 


742 


005766 


000763 






BR 


10$ 


{GET THE REMAINING BITS 


743 


005770 


105042 




151: 


CLRB 


-(R2) 


{TERMINATE THE LINE 


744 


005772 








PRINTX 


♦TSSDEF.^TMPBFR 


{PRINT THE BIT DEFINITIONS 




005772 


012746 


002632' 




MOV 


MMPBFR. «(SP) 






005776 


012746 

wXC • ~w 


006420' 




MOV 


♦TSSOEF. -(SP) 






006002 


012746 


000002 




MOV 


♦2. -CSP) 






006006 


010600 

w* Www 






MOV 


SP.RO 






006O10 


104415 






TRAP 


C$PNTX 




745 


006012 


062706 


000006 

^#ww^^w*# 




ADD 


M»SP 




746 


006016 


010403 




20$ : 


MOV 


R4,R3 


iGET THE TSSR CONTENTS 


747 


006020 


042703 


177761 




BIC 


♦tCTERCLS,R3 


1 CLEAR ALL BUT TERMINATION 


748 


006024 

wwwWfc~ 


016505 

WXwi^Wi^ 


O06S10' 




MOV 


TC0C00(R3),R3 


iGET THE TERMINATION CODE MEANING 


749 


006030 








PRINTX 


•TC0ASC.R3 


{PRINT THE TERMINATION CODE 




006030 


010346 






MOV 


R3. -CSP) 






006032 


012746 


006310' 




MOV 


♦TCOASC.-CSP) 






006036 

w W^^ 


012746 


000002 

WWWWWC 




MOV 


♦2. -CSP) 






006042 


010600 

V A WwW 






MOV 

• •WW 


SP*RO 






006044 


104415 






TRAP 


C$PNTX 






006046 


062706 


000006 




ADD 


M.SP 




750 


006052 


010403 






MOV 


R4.R3 


{TSSR CONTENTS AGAIN 


751 


006054 


042703 


177717 




BIC 


^tCFATERR,R3 


{CLEAR ALL BUT FATAL TERMINATION 


752 


006060 


001416 






BEQ 


25$ 


{DON'T PRINT IF ZERO 


753 


006062 


006203 






ASR 


R3 




754 


006064 


006203 






ASR 


R3 




755 


006066 


006203 






ASR 


R3 


{ALINE TERMINATION CODE FOR INDEX 


756 


006070 


016303 

W WW w 


007050' 




MOV 


TSFC0D(R3).R3 


{GET THE FATAL TERMINATION CODE 


757 


006074 








PRINTX 


MFCASC,R3 


{PRINT THE FATAL TERMINATION CODE 




006074 


010346 






MOV 


R3.-(SP) 






006076 


012746 


006351' 




MOV 


♦TFCASC.-CSP) 






006102 


012746 


000002 




MOV 


♦2.-(SP) 






006106 


010600 






MOV 


SP.RO 






006110 


104415 






TRAP 


C$PNTX 






006112 


062706 


000006 




ADD 


M SP 


(CLEAR ALL BUT EXTENDED ADDRESS 


756 


006116 


042704 


176377 


251: 


BIC 


«tCHIADDR.R4 


759 


006122 


001411 






BEQ 


30$ 


1 DON'T PRINT IF ZERO 



M3 



TSV3 GLOBAL AREAS MACRO M1113 01 FEB-84 17:02 
PRITSSR PRINT TSSR CONTENTS 



SEQ 038 



760 006124 
006124 
006126 
006132 
006136 
006140 
006142 

761 006146 

762 006152 
006152 
006154 
006160 
006162 
006164 

763 006170 
764 

770 006172 

771 006172 

772 

782 006227 

783 006247 

784 006310 

785 006351 

786 006420 

787 006447 
788 

789 006510 

790 006530 

791 006553 

792 006601 

793 006623 

794 006643 

795 006725 

796 006774 

797 007020 
798 

799 

800 007050 

801 007060 

802 007114 

803 007125 

804 007171 
805 

806 
807 
808 
609 
610 
611 
812 
813 
614 
615 
616 
617 
816 
619 



010446 
012746 
012746 
010600 
104415 
062706 
013703 

010346 
012746 
010600 
104415 
062706 
000207 



006247* 
000002 



000006 
002200' 



000001 
000004 



301: 



PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

MOV 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 



«TEXASC.R4 

R4.-(SP) 

♦TEXASC.-CSP) 

*2.-(SP) 

SP.RO 

C»PNTX 

•6.SP 

EPRTSW.R3 

R3 

R3,-(SP) 

♦l.-CSP) 

SP.RO 

OPNTX 

♦4.SP 

PC 



(PRINT THE EXTENDED ADDRESS BITS 



i PRINT MEAASGE BUFFER ADDRESS 
; PRINT PROPER MESSAGE 



(RETURN TO CALLER 



EPRT2: 



045 


116 


045 


EPRTl: .ASCIZ 






045 


116 


045 


TSSRFOR: 


.ASCIZ 


•iMMA TSSR * K06' 


045 


116 


045 


TEXASC: 


.ASCIZ 


'KNKA Ext«ndMl Mdr—m Bit* - K06' 


045 


116 


045 


TCOASC: 


.ASCIZ 


•t»¥M Termination ClaM Cod* - *!' 


045 


116 


045 


TFCASC: 


.ASCIZ 


•MMA Fatal Tarmination Class Code 


045 


116 


045 


TSSDEF: 


.ASCIZ 


•KNKA TSSR Bits Sat: «T' 


045 


116 


045 


AMBTSSR: 


.ASCIZ 


'KfMA TSSR Contents Are Ambiguous' 



006530* 006553' 006601' TCOCOO: .WORD 

116 157 162 1»: .ASCIZ 

124 145 162 2»: .ASCIZ 

124 141 160 31: .ASCIZ 
106 165 156 41: .ASCIZ 
122 145 143 5»: .ASCIZ 
122 145 143 6<; .ASCIZ 

125 156 162 71: .ASCIZ 
106 141 164 f»: .ASCIZ 

.EVEN 

007060' 007114' 007125' TSFCOD: .WORD 

111 156 164 1»: .ASCIZ 

122 145 163 2»: .ASCIZ 

102 165 163 St: .ASCIZ 

122 145 163 4$: .ASCIZ 

.EVEN 



ll.2t.i».4l.5$.6l.7t.8« 
'Normal Termination' 
'Termination Condition' 
'Tape Status Alert' 
'Function Reject' 
'Recoverable Error - T 
'Recoverable Error - T 
'Unrecoverable Error' 
'Fatal Controller Error 



Position One Record Down' 
Mas Not Moved' 



ll.2».3>.4» 

'Internal Diagnostic Failure' 
' Reserved' 

'Bus Interface or Sanity Check Error' 
' Reserved' 



.S8TTL PRIPKT • PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 

THIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET. 
THIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 



INPUT: 



RO NUMBER OF WORDS IN PACKET 

R3 HIGH ORDER COMMAND PACKET ADDRESS 

R4 ADDRESS OF COHMANO PACKET 

NOTE: R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 



TSV3 - GLOBAL AREAS MACRO M1113 Ol-FEB-84 17:02 
PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 



N5 



SEQ 039 



820 
821 

822 007202 

823 007202 

824 007206 
€25 007210 

826 007214 

827 007216 
826 007220 

829 007222 

830 007224 

831 007226 

832 007230 
007230 
007232 
007254 
007240 
007244 
007246 
007250 

833 007254 
854 007256 

635 007260 

636 007262 

637 007266 
636 007270 
639 007272 
840 007274 

007274 
007276 
007300 
007304 
007310 
007312 
007314 
007320 

642 007322 

643 007324 

644 007326 
645 

646 007330 

647 007366 
646 

649 
850 
851 
652 
853 
654 
655 
656 
857 
856 
859 
660 
861 
862 



641 



010005 
005737 
001001 
005003 
010301 
010400 
006100 
006101 

010446 
010146 
012746 
012746 
010600 
104414 
062706 
010300 
001404 
010401 
004737 
010004 
005001 
012402 

010246 
010146 
012746 
012746 
010600 
104414 
062706 
005201 
020105 
002762 
000207 

045 
045 



003134' 



PRIPKT: 



10»: 



007366' 
000003 



000010 



017130' 



15»: 



20* : 
2S»: 



007330' 
000003 



000010 



116 
116 



045 PKTFRM: 



SAVREG 




iSAVE THE REGISTERS 




MOV 


R0,R5 


iSAVE NO. OF W0RD3 IN PACKET 


TST 


K TENABLE 


J ABOVE 28K UNDER TEST? 




BNE 


10$ 


iBR IF YES 




CLR 


R3 


I SET HIGH ORDER ADDRESS TO 


0 


MOV 


R3,R1 


tCOPY HIGH ORDER ADDRESS 




MOV 


R4.R0 


iGET LOWER ADDRESS 




ROL 


RO 


J SHIFT BIT 15 INTO C BIT 




ROL 


Rl 


|AND INTO HIGH ORDER. 




PRINTS 


^KTA00tRl*R4 


1 PRINT PACKET ADDRESS 




MOV 


R4, -CSP) 






MOV 


Rl. -CSP) 






MOV 


vPKTADD* -CSP) 






MOV 


♦3, -CSP) 






MOV 


SP.RO 






TRAP 


CIPNTB 






ADD 


^10 .SP 






MOV 


n V n^ 

RS.RO 


{GET HIGH ORDER ADDRESS 




BEQ 


201 


iBR IF NOT ABOVE 26K. 




MOV 


R4,R1 


}GET LOU ORDER ADDRESS 




JSR 


PC • SETMAP 


8 SETUP PAR6 MAPPING FOR 18 


BIT ADDRESS 


MOV 


R0,R4 


sGET RETURNED PAR6 ADDRESS 


BIAS 


CLR 


Rl 


sSAVE WORD NUMBER 




MOV 


(R4)t .RS 


iGET PACKET CONTENTS 




PRINTS 


«PKTFRM.R1.R2 


1 PRINT THE DATA 




MOV 


R2.-(SP) 






MOV 


Rl, •CSP) 






MOV 


♦PKTFRM, -CSPi 






HUV 


f CD ^ 






MOV 


SP,RO 






TRAP 


CIPNTB 






ADO 


MO.SP 






INC 


Rl 


2 NEXT WORD NUMBER 




CMP 


Rl.RS 


iDONE ALL PACKET WORDS? 




BLT 


251 


tLOOP TILL ALL DONE 




RTS 


PC 


1 RETURN 




.ASCIZ 


'«NKA Packet 


Word MD1#A - KOS' 




•ASCIZ 


'fINilA Packet 


Address - #01#05' 




.EVEN 









.SeTTL PRZBXOR - PRINT EXPO. RECV AND XOR BYTE 



PRINT EXPECTED DATA. RECEIVED DATA. AND XOR OF THE DATA BYTE 
THIS ROUTINE IS NORMALLY CALLED ONL^ FOR PRINT ROUTINES. 



INPUTS: 



Rl RECEIVED DATA 

R2 EXPECTED DATA 



B4 



TSV5 • GLOBAL AREAS MACRO NIII3 OI-FEB-64 17:02 
PRIBXOR PRINT EXPO. RECV AND XOR BYTE 



SEQ 040 



863 
664 
865 
866 
867 
868 

869 007424 
670 007424 

871 007430 

872 0074S2 

873 007442 

874 007446 

875 007450 

876 007452 

877 007454 
007454 
007456 
007460 
007462 
007466 
007472 
007474 
007476 

878 007502 

879 007504 
880 

881 007S06 

882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 007554 

904 007554 

905 007560 

906 007562 

907 007572 
007572 
007574 
007576 
007600 



OUTPUT, 



010203 

012700 177400 
040001 
040002 
04000S 

010346 
010146 
010246 

012746 007506' 
012746 000004 
010600 
104414 

062706 000012 

010300 

000207 



RO 



PRIBXOR: : 

SAVREG 

nov 

XOR 
MOV 
BIC 
BIC 
BIC 

PRINTB 

nov 
nov 

NOV 

nov 
nov 
nov 

TRAP 
AOO 

nov 

RTS 



XOR OF EXPECTEO/RECEIVEO OATA 



R2.R3 
R1.R3 

♦tC<377>,RO 
RO.Rl 
R0.R2 
R0.R3 

•X0R6F0R.R2.R1 

R3.-(SP) 

Rl.-(SM) 

R2.-(SP) 

•XORBFOR.-(SP) 

♦4..(SP) 

SP.RO 

CtPNTB 

•12. SP 

RS.RO 

PC 



I SAVE THE REGISTERS 
•EXPECTED DATA 
iFORn THE EXCLUSIVE OR 
I BYTE nASK 
I SAVE LOU BYTE RECV 
I SAVE LOU BYTE EXPO 
I SAVE LOU BYTE XOR 
.R3 iPRINT THE MESSAGE 



|R0 HAS XOR ON RETURN 
I RE TURN TO CALLER 



045 



116 



045 XORBFOR: 



.EVEN 



.ASCIZ 'UNM EXPO: «03«A RECV: «K)3«A XOR: •OS' 



.S8TTL PRIXOR • PRINT EXPO. RECV AND XOR 



PRINT EXPECTED OATA. RECEIVED DATA. AND XOR OF THE TUO 
THIS ROUTINE IS NORHALLY CALLED ONLY FOR PRINT ROUTINES. 



INPUTS: 



Rl RECEIVED DATA 

R2 EXPECTED DATA 



OUTPUT: 



RO XOR OF EXPECTED/RECEIVED DATA 



PRIXOR:: 



010203 



010346 
010146 
010246 

012746 007624* 



SAVREG I SAVE THE REGISTERS 

nov R2.R3 {EXPECTED DATA 

XOR R1.R3 iFORn THE EXCLUSIVE OR 

PRINTB •X0RF0R.R2.R1.R3 iPRINT THE NESSAGE 

nov R5, (SP) 

MOV Rl.-(SP) 

nov R2.-(SP) 

nov ♦XORFOR. (SP) 



3 01 fEB 84 17:02 



SEQ 041 



007604 
007610 
007612 
007614 

908 007620 

909 007622 
910 

911 007624 

912 

913 

914 

915 

916 

917 

916 

919 

920 

921 

922 

925 

924 

925 

926 

927 

928 007672 

929 007672 

930 007676 
931 

932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 

946 007700 

947 007700 

948 007704 
007704 
007706 
007712 
007716 
007720 
007722 

949 007726 



950 
951 
952 
953 
954 



007730 



012746 
010600 
104414 

062706 
010300 
000207 

045 



000004 
000012 

116 



MOV 

nov 

TRAP 
ADO 
MOV 
RTS 



♦4. (SP) 

SP.RO 

C*PNT8 

♦12.SP 

R3.R0 

PC 



iRO HAS XOR ON RETURN 
iRETURN TO CALLER 



045 XORFOR; 



'WMA EXPO: «06«A RECV: «06«A XQR: «06' 
.SBTTL PRIEOU - PRINT BIT NL-MBERS AS ASCII EQUIVALENT 



.ASCIZ 
.EVEN 



RO^iTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



INPUTS; 



RO OCTAL VALUE TO CONVERT 

Rl TABLE OF POINTERS TO ASCII EQUIVALENT 



PRIEQU: 



000207 



SAVREG 
RTS PC 



(SAVE THE REGISTERS 
iRETURN TO CALLER 



.SBTTL PRIRAM - PRINT RAM ADDRESS 



I PRINT CONTROLLER RAM ADDRESS. 

tTHlS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 



010446 
012746 
012746 
010600 
104414 
062706 
000207 

045 



00"»730' 
000002 



000006 
116 



} INPUTS: 
I 

I M 
I 

PRIRAM: 

SAVREG 

PRINTB 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

RTS 

045 RAMFOR: .ASCIZ 
.EVEN 



RAM ADDRESS 



•RAMFOR. R4 

R4,-(SP) 

«RAMFOR.-(SP) 

#2.-(SP) 

SP.RO 

CIPNTB 

•6.SP 

PC 



I SAVE R1-R5 UNTIL NEXT RETURN 
{PRINT RAM ADDRESS IN ERROR 



•RETURN 



'WMA CONTRXLER RAM ADDRESS - «06' 



D4 



TSV5 • GLOBAL AREAS MACRO H1113 01 FEB S4 17:02 
PRIAOO - PRINT HEHORY ERROR ADDRESS 



SEO 042 



955 
956 
957 
95« 
95«» 
960 
961 
962 
965 
964 
965 
966 
967 
968 
969 
970 
971 
972 
975 
974 



975 
976 
977 
976 
979 
980 
981 
982 
985 
984 
985 
986 
987 
988 
989 
990 
991 
992 
995 
994 
995 
996 
997 
998 
999 
1000 



007772 
007772 
007776 
010002 
010006 
010010 
010012 
010014 
010014 
010016 
010020 
010024 
010050 
010052 
010054 
010040 

010042 



010106 
010106 
010112 
010116 



010122 
010122 
010124 
010150 
0101 34 



.SBTTL PRIAOO - PRINT tIEnORY ERROR ADDRESS 



PRINT HEHORY ADDRESS 

THIS ROUTINE IS NORnALLY CALLED ONLY TROH PRINT ROUTINES. 



IMPLICIT INPUTS 

ERRHI 
ERRLO 



HIGH ORDER ADDRESS 
LOU ORDER ADDRESS 



PRIAOO: 



015700 
015701 
010102 
006101 
006100 

010246 
010046 
012746 
012746 
010600 
104414 
062706 
000207 

045 



002256' 
002240' 



010042' 
000003 



000010 
116 



045 PftlAO: 



SAVREG 




iSAVE R1-R5 UNTIL NEXT RETURN 


HOV 


ERRHI. RO 


iGEr HIGH AOORESSS 


HOV 


ERRLO. Rl 


1 GET LOU ADDRESS 


HOV 


R1.R2 


iCOPY LOU ADDRESS 


ROL 


Rl 


1 SHIFT BIT 15 TO C BIT 


ROL 


RO 


{SHIFT INTO HIGH ORDER 


PRINTS 


•PRIA0.R0.R2 


1 PRINT HEHORY ADDRESS IN ERROR 


HOV 


R2.-(SP) 


HOV 


RO.-(SP) 




HOV 


•PRIAO.-(SP) 




HOV 


#5.-(SP) 




HOV 


SP.RO 




TRAP 


CtPNTB 




ADO 


•10. SP 




RTS 


PC 


tRETURN 


.ASCIZ 


•«»MA HEHORY 


ERROR ADDRESS - «01«05' 


.EVEN 







.SBTTL PRITAOO - PRINT HEHORY TEST ADDRESS 



PRINT HEHORY AODRES^ 

THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 



IMPLICIT INPUTS 

ERRHI 
ERRLO 



HIGH ORDER ADDRESS 
LOU ORDER ADDRESS 



PRITADD: 



015702 002256' 
015701 002240' 



010146 

012746 010170' 
012746 000002 
010600 



SAVREG 

HOV 

HOV 

I HOV 

I ROL 

I ROL 

PRINTB 

HOV 

HOV 

HOV 

HOV 



ERRHI, R2 

ERRLO.Rl 

R1.R2 

Rl 

RO 

•PRITO.Rl 

Rl.-(SP) 
#PRITO.-(SP) 
♦2,-(SP) 
SP.RO 



tSAVE R1-R5 UNTIL NEXT RETURN 

I GET HIGH AOORESSS 

I GET LOU ADDRESS 

iCOPY LOU ADDRESS 

iSHIFT BIT 15 TO C BIT 

tSHlF', INTO HIGH ORDER 

iPRINT HEHORY ADDRESS LOU IN ERROR 



E4 



TSV3 - GLObM. AREAS MACRO HlllS Ol-rEB-84 17.02 
PRITAOO • PRINT HENORT TEST ADDRESS 



SEQ 04 S 



1001 



1002 
1003 
1004 
ICOS 
1006 
1007 
1006 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1016 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1026 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1036 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1046 
1049 



010136 
010140 
010144 
010144 
010146 
010152 
010156 
010160 
010162 
010166 

010170 
010233 



104414 

062706 000006 
010246 

012746 010233* 
012746 000002 
010600 
104414 

062706 000006 
000207 



045 
045 



116 
116 



TRAP 
ADO 

PRINTS 
MOV 

nov 

HOV 

nov 

TRAP 
ADD 

RTS 

045 PRITO: .ASCIZ 
045 PRITl: .ASCIZ 
.EVEN 



C(PNTB 

•6.SP 

•PRITl. R2 

R2.-(SP) 

♦PRITl. -(SP) 

•2.-(SP) 

SP.RO 

CIPNTB 

•6.SP 

PC 



•PRINT HEnORr ADDRESS HIGH IN ERROR 



I RE TURN 



MEnORY TEST ADDRESS I OW • 
rcnORY TEST ADDRESS HIGH 



«06' 
■ «06' 



.SBTTL SPACE 



SPACE RECORDS iFORUARO AND REVERSE) COMnAND 



ROUTINE TO ISSUE A SPACE RECORDS 
COnnANO (FORWARD OR RL/ERSE) 



INPUT: 



R3 NUMBER Of RECORDS TO BE SPACED OVER 

BIT15 CONTROLS DIRECTION 

Biri5 - 0 IS rORUARD 

BIT15 - 1 IS REVERSE 
R5 FIRST DEVICE UNIBUS ADDRESS 



REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLT 



OUTPUT: 



CARRY SET - SPACE RECORDS COMMAND OK 
CLR • SPACE RECORDS FAILED 



RO 



THE CONTENTS OF R4 IS MOVED TO RO 



IMPLICIT OUTPUT; 

TAPE HAS BEEN MOVED 
SIDE EFFECTS: 



010300 
010300 
010304 
010312 
010320 
010322 



SPACE:: 



012737 000764 010470' 
012737 140010 010460' 
005703 
100403 



SAVREG 

MOV •500..S0ELAY 

MOV «140010.60l 

TST R3 

BMI 51 



I SAVE THE GENERAL REGISTERS 
I SET UP DELAY 

I SET UP COMMAND. SPACE FORWARD 
I CHECK FOR DIRECTION 
tBR. IF REVERSE INDICATED 



F4 



TSV3 • 
SPACE 



GLOBAL AREAS HACRO HI 115 01 -FEB -04 17:02 
SPACE RECORDS (FOPUARD AND REVERSE VCOnnAND 



SEQ 044 



1050 


010S24 


010537 


C10462' 




HOV 


A V AAA 

R3*90l 


1051 


010330 


000407 






OH 


t A A 

101 


105^ 


010352 


042703 


100000 


Dl : 


DlL 




1053 


010336 


010337 


010462' 




MA VI 


AA A 
Nd t tOI 


1054 


010342 


AP o^ 

052737 


000400 010460 




BTC 


AAATTM AAA 
#81 fOc OOf 


1055 


010350 


012704 


010460' 


t A A . 

101 : 


nOV 


AAA A DA 

♦OO • • H# 


1056 


010354 


010465 


OOOOOO 




HOV 


DA TCADrD^^ 
H#, IbUDvNDi 


1057 


010360 


004737 


A« ^ A^ A 1 

016060' 


151 : 


ICD 

JsN 
UCLMT 




1059 


010364 


103420 






OA A 

20» 


1059 


010366 












010366 


012727 


AAA^CA 

000250 




HUV 


A3^A 7 ^ A 
vc30 1 ^ KL ) ♦ 




010372 


AAAAAA 

oooooo 






unon 

• WUKU 


A 

U 




010374 


At V^O^ 

013727 


AA^t t ^ « 

002116 




Mf>U 

nuv 


1 AIM V ror^A 




010400 


AAAAAA 

OOOOOO 






• WOHU 


A 




010402 


AACVX.7 
OOOOOf 


t ^^^^o 
1 7 / f f d 










At AA AiL. 

01040D 


AAt TTC 

0013 f D 






DUCT 






At AA t A 

010410 


AAC 

00336' 


Iff fDO 




UCl. 






A1 AA 1 A 


AA1 Xdil 








_OA 


IsIdO 


A1 AA 1 ^ 

010416 


AA^WT 
OV350 i 


A1 AA7AI 
0X04 f U 




UCl. 


cnpi AV 


1061 


010422 


AAt 

0013D6 










10d2 


At AA 

010424 


AAAA 1 1 

000411 






QO 
OH 




lobo 


At AA 

010426 


At ^CAt 

016301 


AAA/V^O 

OOOOUc 


DA* • 

cOf ; 


nuv 


TCCD/Di(\ Dt 


1064 


At A^ 

010432 


At 07A^ 

0 12 702 


AAAOAA 

U00200 




nuv 






A« A^VA 


ADA^At 










1066 


010440 


001401 






BEO 


40t 


1067 


010442 


000402 






BR 


60t 


1068 


010444 


000261 




40t: 


SEC 




1069 


010446 


000401 






BR 


701 


1070 


010450 


000241 




601: 


CLC 




1071 


010452 






70t: 






1072 


010452 


010400 






MOV 


R4.R0 


1073 


010454 


000207 






RTS 


PC 



1074 

1075 
1076 
1077 
1078 
1079 

1081 010456 

1083 

1064 

1085 010460 
1086 

1087 010462 

1088 010464 

1089 010466 

1090 010470 
1091 

1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 



OOOOOO 

OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 



I LOAD UP NUreER OF RECORDS TO SPACE 
I GO 00 COhTIANO 
I CLEAR DIRECTION BIT 
I LOAD UP NUMBER OF RECORDS TO SPACE 
I SET REVERSE BIT IN COMMAND PACKET 
I SET UP R4 WITH PACKET ADDRESS 
I SEND OUT COMMAND 
I WAIT FOR SSR 
iBR. IF SSR IS SET AND OK 
I DELAY ABOUT .25 SECONDS 



iBUMP DELAY COUNTER DOWN 

iBR. IF MORE DELAY 

iBR IF TROUBLE CARRY • CLEAR 

iREAD TSSR 

I SET UP EXPECTED 

•ARE THEY OK 

tBR. IF EQUAL - OK 

t TROUBLE EXIT 

tSEl CARRY NO TROUBLE 

lEXIT 

t CARRY CLEAR - ERROR 

I PASS PACKET ADDRESS 
iRETURN 



I 

i 

! PACKET FOR SPACE COWMND 

* .BLKB 10-«..TSV2£7> 

ICOMMAND MORO 
801: .WORD 

•NUMBER OF RECORDS TO BE SPACED OVER UORD 
901: .UORD 
.UORD 
.UORD 



SDELAY: 



UORD 
.EVEN 



.SBTTL URTCHR 



i DELAY COUNTER 



URITE CHARACTERISTICS COMMAND 



I ♦ 

!r0UTINE to ISSUE A URITE CHARACTERISTICS 
{COMMAND SO THAT OTHER COMMANDS UILL BE ACCEPTED 



G4 



TSV3 - CM-OBAL AREAS MACRO MlllS Ol-FEB 84 17:02 
URTCHR URXTE CHARACTERISTICS COMMAND 



SEQ 045 



llOi 








1102 








1103 








1104 








1105 








1106 








1107 








1 106 








1109 








1110 








1111 








1112 








1119 








1114 








1115 








111b 








1117 








lllo 








1119 








4 4 

1120 








4 4 ^4 
1121 








4 4 

1122 








4 4 

1123 








4 4 '^M 

1124 








4 4 

1125 








4 4 

112d 


0104 72 






4 4 

112 r 


^4 /VA 7^ 

010472 






1 4 


0104 76 


005037 


AAOOVA 1 

002230 


4 4 

1129 


/\4 

010502 


AACAV 7 

005037 


002226 


f 4 

I15U 


010506 


A4 AAf C 

010465 


AAAAAA 

000000 


4 4 V4 
1131 


A 4 AC 4 

010512 


AA^ 7 v*y 
004737 


A4 ^ 4 i 

016146' 


4 4 

1132 


A4 AC 4 f 

010516 


103401 




1133 


A 4 AC^A 

010520 


AAAA VC 

000435 




1134 


A4 ACOO 

010522 


A4 ^CA« 

016501 


AAAAAA 

O00O02 


1135 


A4 AdOi^ 

010526 


A 4 ^^A^ 

012702 


AAA'^AA 

000200 


1130 


A4 ACVf) 

Q1U532 


AV^7A4 

032701 


AAA4 AA 

000100 


113f 


A4 Ag»^ 

vlv536 


AA4 A A^ 

001402 




113Q 


A 4 ACAA 

010540 


052702 


AAA4 AA 

000100 


1 4 

1139 


A4 ARA A 

010544 


020201 




1 f AA 

ll^U 


A4 A&A^ 

Olv54o 


AA4 A A4 

001401 




1 f A4 
1141 


A 4 A&CA 

010550 


AAAA 

000421 




1142 


A 4 ACCO 

Q10552 


062704 


AAAA4 A 

000010 


1149 


Ulv550 


A4 4 AAV 

011403 




1 1 AA 
1144 


A4 AftAA 


032763 


AAA'^AA 

000200 


1 1A^ 
114D 


A 4 ACAA 


AA4 A AO 

001402 




1 1AA 
1140 


A 4 AC7A 

vl\/5 7U 


005237 


0C2226' 


1 1 A7 
114 / 


A1 AC7A 
UlUD 74 






1 lAA 
1140 


A 1 AC 7 A 

0105 74 


032763 


AAA t AA 

000100 




A4 AAAO 


AA4 AAO 




1150 


010604 


005237 


002230* 


1151 


010610 






1152 


010610 


000261 




1153 


010612 


000401 




1154 


010614 


000241 




1155 


010616 


016500 


000002 


1156 


010622 


000207 




1157 









INPUT: 



R4 ADDRESS Of PACKET FROM TEST 

R5 fIRST DEVICE UNIBUS ADDRESS 

REQUIRES A CALL TO SQFINJT BE DONE PREVIOUSLY 



OUTPUT: 



RO TSSR CONTENTS 

CARRY SET - URITE CHARACTERISTICS COTtlANO OK 
CLR - URITE CHARACTERISTICS FAILEp 



IMPLICIT OUTPUT: 



MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 

SOFTWARE SWITCHES SET AS FOLLOWS: 

EXTFEA ' EXTENDED FEATURES PRESENT 
BENBSW - BUFFER ENABLE SWITCH ON OR OFF 



SIDE EFFECTS: 



WRTCHR:; 
lot: 
20»: 

25t: 
40»: 

4S>: 
501: 



60t: 
701: 



SAVREG 

CLR 

CLR 

MOV 

JSR 

BCS 

BR 

nov 

MOV 

BIT 

BEQ 

BIS 

CMP 

BEQ 

BR 

ADO 

nov 

BIT 
BEQ 
INC 

BIT 
BEQ 
INC 

SEC 

BR 

CLC 

MOV 

RTS 



BENBSW 
EXTFEA 
R4.TS0B(R5) 
PC.CMKTSSR 
20» 
60t 

TSSR(R5).R1 
•SSR.R2 
40FL.R1 
25$ 

«0FL,R2 
R2.R1 
401 
60« 

•S..R4 

(R4).R3 

♦X2.EXTF,XST2(R3) 
451 

EXTFEA 



I SAVE THE GENERAL REGISTERS 
{CLEAR BUFFER ENABLE SWITCH 

I CLEAR EXTENDED FEATURES SW SWITCH 
iSEND OUT COMMAND 
•WAIT FOR SSR 
iBR. IF SSR IS SET AND OK 
iBR IF TROUBLE CARRY • CLEAR 
iREAD TSSR 
I SET UP EXPECTED 
tWAS OFF LINE SET IN TSSR 
iBR. IF NO OFL SET 
tHAKE THEM LOOK ALIKE 
tARE THEY OK 
>BR. IF EQUAL - OK 
I TROUBLE EXIT 

I POINT TO WRT CHARA DATA PACKET 
iCET ADDRESS OF MESSAGE BUFFER 
{EXTENDED FEATURES BIT SET? 
iBR IF NO 

I SET EXTENDED FEATURES SW SWITCH 



«X2.BUFE.XST2(RS) 

sot 

BENBSW 



70$ 

TSSRCR5).R0 
PC 



(BUFFER ENABLE SWITCH SET 

iBR. IF SWITCH NOT SET 

I SET SOFTWARE SWITCH FOR ENABLED 

tSET CARRY NO TROUBLE 
lEXlT 

(CARRY CLEAR - ERROR 
(RETURN TSSR CONTENTS 
(RETURN 



TSV5 - GLOeAL ARElAS riACRO MlilS 01 FEB-S4 17:02 
URTCHR • WRITE CHARACTERISTICS COMHANO 



H4 



SEQ 046 



1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
lldl 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 



1195 
1196 
1197 
1198 
1199 
1200 
1201 
1203 
1205 
1206 
1207 
1208 



010G24 
010624 
010630 
010634 
010640 
010644 
010650 
010652 
010652 
010656 
010660 
010664 
010666 
010672 
010674 
010700 
010702 
010704 
010706 
010710 
010712 



010714 
010720 
010720 
010722 



.SBTTL REWIND - POSITION TAPE (REWIND) COmANO 



THIS ROUTINE WILL REWIND THE SELECTED TAPE. 

CAUTION: THE ROUTINE DOES NOT WAIT TOR BOT 

TO ARRIVE. ALSO THE CALLER HUST CHECK FOR 
SSR TO SET IN THE TSSR 



CALLING SEQUENCE: 

00 A SOFT INIT 

DO A WRITE CHARACTERISTICS 

JSR PC. REWIND 



INPUT: 



R5 



OUTPUT 



RO 



FIRST DEVICE UNIBUS ADDRESS 



THE CONTENTS OF R4 IS PASSED TO RO 



REWIND: : 



012704 
010465 
012703 
004737 
103417 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005303 
001357 
000241 
010400 
000207 



102010 
000000 



010720* 
000000 
000550 
016060' 



000372 
002116' 
177772 
177756 



lOti 



20t: 



RWPACK: 



SAVREG 

nov 
nov 

NOV 

JSR 

BCS 

DELAY 

NOV 

.WORD 

MOV 

.WORD 

DEC 

8NE 

DEC 

BNE 

DEC 

BNE 

CLC 

HOV 

RTS 



R4.TSDB(R5) 
•360.. R3 
PC.WAITF 
201 

250. 

♦250..(PC)» 
0 

L»0LY.(PC)* 
0 

-6(PC) 
. -4 

-22(PC) 

.-20 

R3 

lot 

R4.R0 
PC 



iSAVE R1-R5 UNTIL NEXT RETURN 

I GET PACKET ADDRESS 

I SEND PACKET ADDRESS TO EXECUTE 

t ENOUGH TINE FOR 2400' REEL TO REWIND 

{WAIT FOR SSR TO SET 

iLEAVE WHEN SSR IS SET 

I WAIT FOR .25 SECONDS 



.BLKB 10-<.-TSV2£7> 



.WORD 
.WORD 



102010 
0 



iBUHP COUNTER DOWN 
I KEEP GOING 

I CLEAR CARRY TO SET ERROR 
I PASS THE PACKET ADDC-^SS 
{RETURN 



I POST ION COMHAND (REWI^N>) 
>NOT USED 



14 



TSV3 > GLOBAL AREAS MACRO HlllS OlFEB-64 17:02 
REWIND POSITION TAPE (REUIND) COTtlANO 



SEQ 047 









1210 






1211 






1212 






1215 






1214 






1215 






1216 






1217 






1218 






1219 






1220 






1221 






1222 






1223 






1224 






1225 






1226 






1227 






1226 






1229 






1230 






1231 






1232 






1233 






1234 






1235 






1236 






1237 






1238 






1239 


010724 




1240 


010724 




1241 


010730 


012701 

VAC ' W A 


1242 


010734 


012702 

• vc 


1243 


010740 


005003 


1244 


010742 


004737 


1245 


010746 


112765 


1246 


010754 


004737 


1247 


010760 


010265 


1248 


010764 


004737 


1249 


010770 


116511 


1250 


010774 


122124 


1251 


010776 


001401 


1252 


011000 


005203 


1253 


011002 


005202 


1254 


011004 


020227 


1255 


011010 


003761 


1256 


011012 


005703 


1257 


011014 


001402 


1258 


011016 


000241 


1259 


011020 


000401 


1260 


011022 


000261 


1261 


011024 


012737 


1262 


011032 


000207 


1263 






1264 






1265 







.SBTTL CKRAM • COHPARE RAM TO I/O PACKET 



ROUTINE TO READ THE FIRST 6 BVTES FROM RAM 
MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 



INPUT: 



R4 ADDRESS OF THE COMMAND PACKET 

R5 FIRST DEVICE UNIBUS ADDRESS 



OUTPUT: 



CARRY SET • RAM MATCHES PACKET 

CLR • RAM DOES NOT MATCH PACKET 

IMPLICIT OUTPUT: 

THE TABLE RAMDATA IS FILLED WITH THE 
DATA HELD IN RAM. 

RAMSIZ IS SET TO S. FOR PRAMPKT ROUTINE 
SIDE EFFECTS: 

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 



CKRAM: : 



002242* 
000201 

016146' 

000000 

016146' 

000000 

016146' 

000000 



000210 



000000 



10$: 



20ti 



000010 



S0»: 

002302' 50$: 



SAVREG 




tSAVE THE GENERAL REGISTERS 


MOV 


«RAM0ATA.R1 


1 ADDRESS TO SAVE THE RAM DATA 


MOV 


«RMPKTBeG.R2 


sBtTE ADDRESS OF FIRST RAM DATA 


CLR 


R3 


t CLEAR THE ERROR FLAG 


JSR 


PC.CWTSSR 


lUAIT FOR SSR 


MOVB 


«O.TS06(R5) 


iSET MAINTENANCE MODE 


JSR 


PC.CHKTSSR 


lUAIT FOR SSR TO SET 


MOV 


R2.TSDBCR5) 


t SELECT NEXT RAM ADDRESS 


JSR 


PC.CHKTSSR 


tUAIT FOR SSR TO SET 


MOVB 


TSBA(RS).CRl) 


(READ THE RAM DATA 


CMPB 


(R1)*.CR4)» 


1 COMPARE TO EXPECTED 


BEQ 


201 


i BRANCH IF OK 


INC 


RS 


iSET ERROR FLAG 


INC 


R2 


{ADDRESS OF NEXT RAM LOCATION 


CMP 


R2.«RMPKTEND 


{REACHED END YET ? 


BLE 


10» 


{BRANCH TILL ALL READ 


TST 


R3 


{WAS AN ERROR FOUND ? 


BEQ 


30» 


{BRANCH IF NOT 


CLC 




{CLEAR CARRY TO SHOW ERROR 


BR 


sot 


(AND EXIT 


SEC 




iSHOU GOOD COMPARE 


MOV 


«e.. RAMSIZ 


(SETUP RAMSIZ FOR PRAMPKT ROUTINE 


RTS 


PC 


(RETURN 


.SBTTL 


CKRAM2 • COMPARE RAM 


TO I/O CHARACTERISTICS DATA 



J4 



TSV5 - GLOBAL AREAS MACRO HlllS Ol-FEB-64 17:02 
CKRATta - COMPARE RAM TO I/O CHARACTERISTICS DATA 



SEQ 046 



1266 
1267 
1266 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1276 
1279 
1260 
1281 
1282 
1263 
1264 
1265 
1266 
1267 
1266 
1269 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1296> 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1306 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1316 
1319 
1320 
1321 
1322 



ROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM 

MEMORY ANO COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 



INPUT: 



R4 
R5 



OUTPUT: 



CARRY 



ADDRESS OF THE CHARACTERISTICS DATA 
FIRST DEVICE UNIBUS ADDRESS 



SET - RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 



IMPLICIT OUTPUT: 

THE TABLE RAMOATA IS FILLED WITH THE 
DATA HELD IN RAM. 

RAHSIZ IS SET TO 6. OR 10. FOR PRAMPKT ROUTINE 
SIDE EFFECTS: 

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 



011034 






CKRAM2: 








011034 








SAVREG 




iSAVE THE GENERAL REGISTERS 


011040 


012701 


002242' 




MOV 


«RAnOATA.Rl 


lAOORESS TO SAVE THE RAM DATA 


011044 


012702 


000167 




MOV 


«RMCHBEG.R2 


iBTTE ADDRESS OF FIRST RAH DATA 


011050 


005003 






CLR 


RS 


1 CLEAR THE ERROR FLAG 


011052 


004737 


016146' 




JSR 


PC.CH<TSSR 


tUAIT FOR SSR 


011056 


112765 


000000 


000000 


MOVB 


•O.TS08(R5) 


iSET MAINTENANCE MODE 


011064 


004737 


016146' 


lot: 


JSR 


PC.CHKTSSR 


lUAIT FOR SSR TO SET 


011070 


010265 


000000 




MOV 


R2.TS06(R5) 


•SELECT NEXT RAH ADDRESS 


011074 


004737 


016146' 




JSR 


PC.CHKTSSR 


tMAIT FOR SSR TO SET 


011100 


116511 


000000 




MOVB 


TS8ACRS).(R1) 


iREAO THE RAH DATA 


011104 


122124 






CMPB 


(R1)*.(R4)* 


tC0W>ARE TO EXPECTED 


011106 


001401 






BEQ 


201 


iBRANCH IF OK 


011110 


005203 






INC 


R3 


tSET ERROR FLAG 


011112 


005202 




20»: 


INC 


R2 


{ADDRESS OF NEXT RAM LOCATION 


011114 


012737 


000010 


002302' 


MOV 


•6. .RAHSIZ 


; ASSUME EXTFEA NOT SET 


011122 


005737 


002226' 




TST 


EXTFEA 


tIS THE SOFTUARE EXTENDED FEATURES SET 


011126 


001407 






BEQ 


25t 


iBR. IF NOT SET 


011130 


012737 


000012 


002302' 


MOV 


«10.. RAHSIZ 


iSET RAHSIZ FOR EXTEND FEATURES 


011136 


020227 


000200 




CMP 


R2.«RnCHEN0 


i AT END OF EXTENDED BUFFER 


011142 


003750 






BLE 


lOt 


iBR. IF NOT AT END YET 


011144 


000403 






BR 


27» 


|AT END BRANCH 


011146 


020227 


000176 


25t: 


CMP 


R2.«RMCHEN0-2 


1 REACHED END YET ? 


011152 


003744 






BLE 


10( 


•BRANCH TILL ALL READ 


011154 


005703 




27»: 


TST 


R3 


lUAS AN ERROR FOUND ? 


011156 


001402 






BEQ 


sot 


(BRANCH IF NOT 


011160 


000241 






CLC 




iCLEAR CARRY TO SHOW ERROR 


011162 


000401 






BR 


50« 


{AND EXIT 


011164 


000261 




301: 


SEC 




iSHOU GOOD COMPARE 


011166 


000207 




50t: 


RTS 


PC 


t RE TURN 



K4 



TSV3 - GLOBAL AREAS 
CKRAn2 



MACRO Mil 13 



_ . 01-FEB-d4 

COMPARE RAM TO I/O CHARACTERISTICS OA 



02 



SEQ 049 



1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 



011170 
011170 
011174 
011200 
011204 
011210 
011212 
011216 
011220 
011222 
011224 
011226 
011232 
011236 
011240 
011242 
011244 
011250 
011254 
011256 
011264 
011266 
011272 
011274 
011276 
011300 
011302 
011304 
011306 



.SB TIL CKMSG 



COMPARE WRITE CHAR. MESSAGE BUFFERS 



ROUTINE TO COMPARE A URITE CHARACTERISTICS EXPO AND RECV 
BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
ERROR PRINT ROUTINES. 



INPUT: 



OUTPUT: 



RO 
Rl 
R2 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOU ORDER ADDRESS 
EXPO MESSAGE BUFFER ADDRESS 



CARRY 



SET 
CLR 



IMPLICIT OUTPUT: 

EXPMSG 
RECMSG 
RCVHIAOD 
RCVLOADD 



CKMSG: 



- MESSAGE BUFFERS MATCH 
-MESSAGE BUFFERS DON'T MATCH 



BUFFER IS SET TO EXPO DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOU ORDER ADDRESS OF RECV 



010037 
010137 
005737 
001403 
004737 
010001 
005004 
005003 
010205 
011264 
011164 
022221 
001401 
005203 
062704 
020427 
003764 
032765 
001403 
020427 
003755 
005703 
001402 
000241 
000401 
000261 
000207 



002304* 
002306' 
003134* 

017130' 



002322' 
002466' 



000002 
000014 



lot: 



15<: 



25>i 



000200 000012 
000016 



sot: 



55t: 
60t: 



SAVREG 




iSAVE R1-R5 UNTIL NEXT RETURN 


MOV 


RO.RCVHIADO 


tSAVE RECV HIGH ADDRESS 


MOV 


Rl.RCVLOAO 


tSAVE RECV LOU ADDRESS 


TST 


KTENABLE 


{TESTING ABOVE 28K? 


BEQ 


lot 


iBR IF NO 


JSR 


PC.SETMAP 


iRETURN ADDRESS BIASED TO PAR6 IN RO 


MOV 


RO.Rl 


iGET RETURNED ADDRESS BIASED TO PAR6 


CLR 


R4 


lUORO IN BUFFER 


CLR 


R3 


1 CLEAR ERROR SEEN FLAG 


MOV 


R2 R5 


iGET EXPO BUFFER ADDRESS 


MOV 


(R2).EXPMSG(R4) 
(R1).RECMSG(R4) 


iSAVE EXPD FOR ERROR REPORT 


MOV 


iSAVE RECV FOR ERROR REPORT 


CMP 


CR2)»,CR1)* 


lEXPD EQUAL RECV? 


BEQ 


.^t 


iBR IF YES 


INC 


RJ 


iSET ERROR SEEN FLAG 


ADD 


•2.R4 


iPOINT TO NEXT UORO ADDRESS 


CMP 


R4.#14 


iDONE FIRST 7 UORDS? 


BLE 


15t 


iBR IF NO 


BIT 


•X2.EXTF.XST2(R5)iIS EXTENDED FEATURES SET IN EXPO? 


BEQ 


sot 


tBR IF NO 


CMP 


R4,«16 


tOONE EXTENDED FEATURES UORO? 


BLE 


15t 


iBR IF NO 


TST 


R3 


lANY ERRORS SEEN? 


BEQ 


55t 


iBR IF NO 


CLC 




iSET FAILURE 


BR 


60t 




SEC 




iSET SUCCESS 


RTS 


PC 


•RETURN 



L4 



TSVS - GLOBAL AREAS MACRO Mil 13 
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84 17:02 



SEQ 050 



1380 
1381 
138^ 
1583 
1384 
1365 
1386 
1387 
1366 
1369 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1406 
1409 
1410 
1411 
1412 
1413 



1414 
1415 
1416 
1417 
1416 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 



.SBTTL CKMSG2 - COMPARE EXPO RECV MESSAGE BUFFERS 



i ♦ 



011310 
011310 
011314 
011320 
011322 
011326 
011326 
011332 
011336 
011340 
011342 
011346 
011352 
011356 
011362 
011364 
011370 
011372 
011374 
011376 
011402 
011406 
011410 
011412 
011414 
011420 
011422 
011424 
011426 



020327 
003412 
012703 

012746 
012746 
010600 
104417 
062706 
010037 
010137 
005737 
001403 
004737 
010001 
005004 
005005 
111264 
111164 
122221 
001401 
005205 
062704 
020403 
002001 
000764 
005705 



000144 

000144 

011442' 
000001 



000004 
002304' 
002306' 
003134' 

017130' 



002322' 
002466' 



000001 



ROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
ERROR PRINT ROUTINES. 



INPUT: 



RO 
Rl 
R2 
RS 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOU ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 
NUMBER OF BYTES TO COMPARE 



OUTPUT: 



CARRY 



SET . MESSAGE BUFFERS MATCH 

CLR - MESSAGE BUFFERS DON' T MATCH 



IMPLICIT OUTPUT: 

EXPMSG 
RECMSG 
RCVHIAOD 
RCVLOAOD 



CKMSG2: : 



BUFFER IS SET TO EXPD DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOU ORDER ADDRESS OF RECV 



SAVREG I SAVE R1-R5 UNTIL NEXT RETURN 

CMP R3.MECnSG-EXPnSGt8SD IS COUNT ABOVE MAX ALLOUED? 

BLE St tSSD BR IF NO 

MOV •RECMSG-EXPnSG.RSiSaO 

PRINTF •OEBUGMSG 

MOV •OEBUGnSG.-(SP) 

MOV ♦1,-CSP) 

MOV SP.RO 

TRAP CIPNTF 

ADO «4.SP 

5»: MOV RO.RCVHIADO 

MOV Rl.RCVLOAD 

TST KTENA8LE 

BEQ 10< 

JSR PC.SETMAP 

MOV RO.Rl 

10$ : CLR R4 

CLR R5 

15* : MOVB (R2).EXPMSG(R4) 

MOVB (R1).RECMSG(R4) 

CMPB (R2)».CRl)t 

BEQ 25$ 

INC R5 

25(: ADO n.R4 

CMP R4.R3 

BGE 50* 

BR 151 

S0( : TST RS 



I SAVE RECV HIGH ADDRESS 
I SAVE RECV LOU ADDRESS 
t TESTING ABOVE 26K? 
iBR IF NO 

t RETURN ADDRESS BIASED TO PAR6 IN RO 
I GET RETURNED ADDRESS BIASED TO PAR6 
lUORO IN BUFFER 
(CLEAR ERROR SEEN FLAG 
I SAVE EXPD FOR ERROR REPORT 
I SAVE RECV FOR ERROR REPORT 
I EXPD EQUAL RECV? 
I BR IF YES 

tSET ERROR SEEN FLAG 
i POINT TO NEXT BYTE 
(DONE ALL BYTES? 
iBR IF YES 
I DO NEXT BYTE 
lANY ERRORS SEEN? 



M4 



011430 


001402 








BEQ 


55) 




iBR IF NO 


011432 


000241 








CLC 






I SET FAILURE 


011434 


000401 








BR 


60) 






011436 


000261 






55$: 


SEC 






!sET SUCCESS 


011440 


000207 






60): 


RTS 


PC 




1 RETURN 


011442 


120 


122 


117 


OEBUGMSG: 


.ASCIZ 


'PROGRAn INTERNAL ER 


011532 


045 


116 


045 


FERCM: 


.ASCII 


/iNMA 






011543 


040 


040 


124 


ERCM: 


.ASCIZ 


/ TSSR 


ERROR 


CODE REC'O • / 


011576 


056 


056 


056 


SinSG: 


.ASCIZ 


/ AFTER DOING SOFT INIT/ 


011631 


124 


105 


123 


TINERR: 


.ASCIZ 


/TEST: 


.../ 
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1432 
1433 
1434 
1435 
1436 
1437 
1436 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
145* 
1455 
1456 
1457 
1458 
1459 
1460 

1461 
1462 
1463 



SEQ 051 



-CKMSG2 MESSAGE BUFFER EXCEEDED ' sSSD 



1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 

1477 
1478 
1479 
1480 



1481 
1482 



011644 
011644 
011644 
011650 
011654 
011654 
011654 



004737 
004737 



005636' 
017014' 



104423 



011656 
011656 
011656 
011662 
'>11666 
011672 
011672 
011672 



004737 
012700 
004737 



104423 



005636' 

000004 

007202* 



.EVEN 

i ♦ 

! PRINT ROUTINE TO FATAL SOFT INIT ERRORS 
! INPUT: 

I Rl CONTENTS OF TSSR AT ERROR 

isiOE EFFECTS: 

I EXECUTES DROP UNIT TO CEASE TESTING 



SFIMSG: : 



BGNHSG SFIMSG 



L10003: 



JSR 
JSR 

ENOnSG 
TRAP 



PC.PRITSSR 
PC.CKOROP 



OMSG 



iPRINT CONTENTS OF TSSR REGISTER 
(DROP UNIT. IF ALLOWED 



PRINT ROUTINE TO PRINT THE CONTENTS OF 

TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 



INPUTS: 



Rl TSSR CONTENTS 

R4 ADDRESS OF COMMAND PACKET 



PKTSSR:: 



BGNMSG PKTSSR 



L10004i 



i ♦ 



JSR 
MOV 
JSR 

ENOMSG 
TRAP 



PC.PRITSSR 

«4.R0 

PC.PRIPKT 



CIMSG 



I PRINT THE CONTENTS OF TSSR REGISTER 

I NO. OF WORDS IN PACKET 

I PRINT THE CONTENTS OF COMMAND PACKET 



N4 
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SEQ 052 



1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 

1494 
1495 
1496 
1497 



1498 
1499 

1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 

1510 
1511 



1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 

1528 
1529 
1530 
1531 
1532 



011674 
011674 
011674 
011700 
011704 
011710 
011710 
011710 



011712 
011712 
011712 
011716 
011716 
011716 



011720 
011720 
011720 
011724 
011726 
011730 
011734 



004737 005636* 
012700 000002 
004737 007202' 



104423 



004737 005636' 



104423 



004737 005636' 

010200 

010301 

004737 014052' 



i PRINT ROUTINE TO PRINT THE CONTENTS OF 
iTSSR AND A GET STATUS COMMAND PACKET. 



i INPUTS: 

s 



Rl TSSR CONTENTS 

R4 ADDRESS OF COMMAND PACKET 



PKTGETS:: 

JSR 
MOV 
JSR 

ENOMSG 

L10005: 

TRAP 



BGNMSG PKTGETS 



PC.PRITSSR 

«2.R0 

PC.PRIPKT 



CIMSG 



iPRINT THE CONTENTS OF TSSR REGISTER 
I NO. OF WORDS IN GET STATUS PACKET 
tPRINT THE CONTENTS OF COMMAND PACKET 



iPRINT TSSR ERRORS FOR INITIALIZATION TESTS 



INPUTS: 



Rl TSSR CONTENTS 

R4 ADDRESS OF COMMAND PACKET 



SFFHSG: 



L10006: 



BGNMSG SFFMSG 

JSR PC.PRITSSR 
ENOnSG 



(PRINT CONTENTS OF TSSR REGISTER 



TRAP 



C«HSG 



.SBTTL PKTMES - PRINT TSSR AND MESSAGE BUFFER 



t PRINT ROUTINE TO PRINT T^C CONTENTS OF TSSR AND MESSAGE 
: BUFFER FOR ERROR REPORTS 



t INPUTS: 
t 

t Rl 

; R3 
( NOTE: 



CONTENTS OF TSSR 
LOU ORDER MESSAGE BUFFER 
HIGH ORDER MESSAGE BUFFER ADDRESS 
R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 



PKTMES: 



BGNMSG Ph'TMES 



JSR 
MOV 
MOV 
JSR 

ENOMSG 



PC.PRITSSR 
R2.R0 
R3,R1 
PC.PRMESS 



J PRINT CONTENTS OF TSSR 
sLOU ORDER ADDRESS 
iHIGH ORDER ADDRESS 
: PRINT THE MESSAGE BUFFER 



B5 
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PKTHES - PRINT TSSR AND MESSAGE BUFFER 



SEO OSS 



1S5S 
1SS4 
ISSS 
1SS6 
1537 
1538 
1559 
1540 
1541 
1S42 
1S43 
1544 
1545 
1S46 
1S47 

154S 
1549 

1550 
ISSl 



1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1S6S 
1566 

1567 
1568 
1569 
1570 
1571 
1572 



1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 



011734 
011754 



011736 
011756 
011756 
011742 
011746 
011752 
011752 
011752 



011754 
011754 
011754 
011760 
011764 
011766 
011772 
011776 
011776 
011776 



104425 



L 10007: 



TRAP 



CINSG 



.SBTTL AOOSSR • PRINT TEST ADDRESS AND TSSR 

PRINT ROUTINE TO PRINT THE CONTENTS OF 
TSSR AND A MFMORT TEST ADDRESS 



INPUTS: 



R5 FIRST DEVICE UNIBUS ADDRESS 

ERRHI HIGH ORDER MEHORY TEST ADDRESS 
ERRLO LOM ORDER MEMORY TEST ADDRESS 



004757 010106' 
016501 000002 
0047S7 005636* 



104423 



AODSSR: 



BGKtlSG AODSSR 



LlOOtOt 



JSR 
MOV 
JSR 

ENDMSG 
TRAP 



PC.PRITADD 

TSSR(RS),R1 

PC.PRXTSSR 



CINSG 



I PR INT MEMORY TEST ADDRESS 
iGET CURRENT TSSR 

iPRINT THE CONTENTS OF TSSR REGISTER 



.SBTTL nSGE)CP • PRINT MITE CHAR. EXPO-RECV MESSAGE BUFFERS 

PRINT ROUTINE TO PRINT URITE CHARACTERISTIC MESSAGE BUFFER 

IMPLICIT INPUTS: 

EXPMSG • EXPECTED MESSAGE BUFFER 
RECnSG - RECEIVED MESSAGE BUFFER 

RCVHIAOO- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOROO- RECEIVED MESSAGE BUFFER LOU ORDER ADDRESS 



012700 000007 

005757 002226' 
001402 

012700 000010 

004777 014S62' 



104423 



MSGEXP:t 



8GNNSC HSGEXP 



Sf: 
LlOOll: 



MOV 

TST 
BEQ 
MOV 
JSR 

ENDMSG 

TRAP 

.SBTTL 



#7.R0 

EXTFEA 

51 

•8..R0 
PC.PRNSGEXP 



lASSUiC NO EXT FEATURES 
lEXT FEATURES SET? 
iBR IF NO 

tEXT FEATURE BUFFER IS 8 WORDS 
iPRXNT EXPO/RECV MESSAGE BUFFERS 



CtMSG 
FIFEXP 



• PRINT FIFO EXP/RECV DATA 



PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 

Rl • BYTE COUNT 

IMPLICIT INPUTS: 



C5 



SEQ 054 



1562 










1 


156S 










1 EXPMSG 


1584 










t RECnSG 


1585 










1 - 


1586 


012000 
012000 








BGI«1SG 

riFEXP:: 


1587 


012000 
012000 


010146 






PRINTX 
HOV 




012002 


012746 


012052* 




nov 




012006 


012746 


000002 




nov 




012012 


010600 






HOV 




012014 


104415 






TRAP 




012016 


062706 


000006 




ADO 


1588 


012022 








PRINTX 




012022 


012746 


012121' 




HOV 




012026 


012746 


000001 




HOV 




012032 


010600 






HOV 




012034 


104415 






TRAP 




012036 


062706 


000004 




ADD 


1589 


012042 


010100 






HOV 


1590 


012044 


004737 


014732' 




JSR 


1591 


012050 
012050 
012050 


104423 






ENOHSG 

L10012: 

TRAP 


1592 


012052 


045 


116 


045 


FIFIHSC: 


1593 


012121 


045 


116 


045 


FIF2HSG: 



• E^'.PECTEO MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 

• RECEIVED HES&AGE BUFFER (CONTAINS FIFO DATA ONlf) 



FIFEXP 

«FIFinSG.Rl 

Rl.-(SP) 

•FiriHSG.-(SP) 

#2.-(SP) 

SP.RO 

CIPNTX 

«6.SP 

•FIF2HSG 

•FIF2HSG.-(SP) 

•l.-(SP) 

SP.RO 

C»PNTX 

•4.SP 

Rl.RO 

PC.PR8YTEXP 



I PRINT BYTES TRANSFERRED 



{PRINT HEADER HSG 



iGET BYTE COUNT 

iPRINT FIFO BYTES IN ERROR 



1594 

1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 

1609 012160 
012160 
012160 
012164 
012166 
012170 
012170 
012172 
012176 
012200 
012202 
012206 
012210 
012214 
012220 
012220 



.EVEN 



CIHSG 

.ASCIZ 'MtfA NUMBER OF BYTES TRANSFERRED • «D2' 
.ASCIZ 'MM FIFO DATA BYTES IN ERROR:' 



.SBTTL HSCSTAT • PRINT STATUS HEADER AND HESSAGE BUFFEPS 



PRINT ROUTINE TO PRINT HESSAGE BlT'FER EXPQ/RECV 



IHPLICIT INPUTS i 



1610 
1611 
1612 
1613 



1614 
1615 
1616 
1617 



012701 012222' 

012100 

001410 

010046 

012746 000001 

010600 

104415 

062706 000004 
000766 

012700 000012 
004737 014362' 



10<: 



EXPHSG - EXPECTED HESSAGE BUFFER 
RECHSG - RECEIVED HESSAGE BUFFER 

RCVHIAOO- RECEIVED HESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOAOO- RECEIVED HESSAGE BUFFER LOU ORDER ADDRESS 



tASCII ADDRESS TABLE 
iDONE ALL nSC LINES? 
I BR IF YES 

iPRINT STATUS BIT NAHES 



20>i 



L10013: 



8GM1SG 


HSGSTAT 


a 

HOV 


•STATCOD.Rl 


HOV 


(R1)*.R0 


BEO 


20t 


PRINTX 


RO 


HOV 


RO.-CSP) 


HOV 


•l.-(SP) 


HOV 


SP.RO 


TRAP 


CIPNTX 


ADO 


•4.SP 


BR 


101 


HOV 


•10.. RO 


JSR 


PC.PRHSGEXP 


ENOHSG 





iDO ANOTHER HSG LINE 

iNUHBER OF UORDS IN A READ STATUS BUFFER 
I PRINT EXPO/RECV HESSAGE BUFFERS 



D5 



SEQ 055 



I6I8 
1619 
1620 
1621 
1622 
1625 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1651 
1652 
1635 
1634 
1655 
1656 
1637 
1658 
1659 
1640 
1641 
1642 

1645 
1644 
1645 
1646 



1647 
1648 
1649 
1650 



1651 
1652 
1655 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 



012220 104425 



012222 
012240 
012502 
012575 
012464 
012555 
012617 



012674 
012674 
012674 
012700 
012702 
012704 
012704 
012706 
012712 
012714 
012716 
012722 
012724 
012750 
012734 
012734 
012734 

012736 
012756 
013051 
015150 
015227 
015526 
01342S 
015524 



012240' 012502' 

045 116 

045 116 

045 116 

045 116 

045 116 

045 116 



012575' 
045 
045 
045 
045 
045 
045 



012701 012756' 

012100 

001410 

010046 

012746 000001 

010600 

104415 

062706 000004 
000766 

012700 000012 
004757 014362' 



104423 

012756' 013051' 

045 116 

045 116 

045 116 

045 116 

045 116 

045 116 

045 116 



015150' 
045 
045 
045 
045 
045 
045 
045 



TRAP 

STATCOO: 
II: .ASCIZ 
2»:.ASCIZ 
5«:. ASCIZ 
4<:.ASCIZ 
5t:. ASCIZ 
6 I:. ASCIZ 

.EVEN 



«N«A 
«N«A 
«N«A 



CIHSG 

UORO 
Tap* 



tfNtfA T 



l<.2«.5t.4t.5t.6«.0 

Bu« Sifln«l« in Uerd #8:' 

PARERR<15> lEOT <12> irnK <9> IR0Y<6> 

IRESV2<14> II0ENT<11> IHER <8> I0NL<5> 

IRESV1<15> ICER <10> ISPEE0<7> IL0P<4> 

Bus SionaU in Uord •9:' 

0ATNIS<7> ILU<6> 0UTRDY<5> INRDY<4>' 



XRU0<2 
IFBY<1 
IFPT<0 



.SBTTL nSGLOOP • PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 

* 

PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPO/RECV 

IMPLICIT INPUTS: 

EXPMSG • EXPECTED MESSAGE BUFFER 
RECnSG - RECEIVED MESSAGE BUFFER 

RCVHIAOO* RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADO- RECEIVED MESSAGE BUFFER LOU ORDER ADDRESS 



BGNHSG 
MSGLOOP: : 

MOV 

10«: MOV 
BED 
PRINTX 
MOV 
MOV 
MOV 
TRAP 
ADO 
BR 

201: MOV 
JSR 

ENOMSG 

L10014: 

TRAP 



MSGLOOP 

«L00PC00.R1 

(R1)*.R0 

20» 

RO 

RO,-(SP) 

#1.-(SP) 

SP.RO 

CIPNTX 

M.SP 

101 

«10..R0 
PC.PRMSGEXP 



CtMSG 



t ASCII ADDRESS TABLE 
iDONE ALL MSG LINES? 
iBR IF YES 

tPRINT STATUS BIT NAMES 



I DO ANOTHER MSG LINE 

(NUMBER OF MOROS IN A READ STATUS BUFFER 
(PRINT EXPD/RECV MESSAGE BUFFERS 



LOOPCOD: 
It:. ASCIZ 
2t:. ASCIZ 
3t:. ASCIZ 
4 t:. ASCIZ 
5 I:. ASCIZ 
6t:. ASCIZ 
71 I. ASCIZ 



.WORD 1*. 2*. 3*. 4t. St. 6*. 71.0 
•KNtfA Tap* Bus Looptoaek Siflnala in Uord *8:' 



■dNKA PARERR<1S> 
•MWA IHISP->IE0T<12> 
'MMA IWFM ->IFMK<09> 
'tfNitA ITAD0*>IR0Y<06> 
■MMtA IREU ->IDBY<05> 
'«NKA IGO •>IFPT<00>' 



IRESV2<14> 
IURT->II0ENT<11> 
lEOIToIHER <08> 
ITA01->I0NL <05> 
IRUU ->IRU0 <02> 



IRESV1<13 
IREV ->ICER <10 
IF AO ->ISPeEO<07 
IERASE->IL0P <04 
IFEN ->IFBY <0l 



>• 
» ■ 
> • 
» ■ 
> 



.EVEN 



.SBTTL MSGSUB - PRINT URITE SUBSYSTEM MESSAGE BUFFER 

»♦ 

!pRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 



E5 



TSV3 GLOBAL AREAS MACRO M1113 Ol-FEB-84 17:02 
nSGSOB PRINT URITE SUBSYSTEM MESSAGE BUFFER 



SEO 056 



16€^ 
1667 
lb6« 
1669 
1670 
1671 
1672 
1675 
1674 
1675 

1676 
1677 
167S 



1679 
1680 
1681 
1682 
1685 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1695 
1694 
1695 
1696 

1697 
1698 
1699 
1700 
1701 



1702 
1705 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
17U 
1714 
1715 
1716 



015552 
015552 
015552 
015556 
015562 
015562 
015562 



012700 000012 
004757 014562' 



104425 



015564 
015564 
015564 
015570 
015574 
015600 
015604 
015604 
015604 



004757 007772* 

015701 002252' 

015702 002254* 
004757 007554' 



104425 



IMPLICIT INPUTS: 



EXPHSG - EXPECTED MESSAGE BUFFER 
RECNSG • RECEIVED MESSAGE BUFFER 

RCVHIADO- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD- RECEIVED MESSAGE BUFFER LOU ORDER ADDRESS 



NSCSUB; 



BGNMSG HSGSUB 



L10015: 



MOV 
JSR 

ENOnSG 
TRAP 



•10. .RO 
PC.PRMSGEXP 



CtMSG 



I SIZE OF URITE SUBSYSTEM BUFFER 
iPRINT EXPO/RECV MESSAGE BUFFERS 



.SBTTL MEtMOD - PRINT MEHORY ADDRESS DATA ERROR 

* 

PRINT ROUTINE TO PRINT MEHORY ADDRESS DATA COMPARE ERROR 

IMPLICIT INPUTS: 

ERRHI - MEHORY ERROR HIGH ORDER ADDRESS 

ERRLO - HEHORY ERROR LOU ORDER ADDRESS 

EXP - EXPECTED DATA 

RECV - RECEIVED DATA 



HEHAOOt t 



dOmSG MEHAOD 



Li0016t 



JSR 
HOV 
MOV 
JSR 

EN0HS6 

TRAP 

.SBTTL 



PC.PRIAOO 
EXPD.Rl 
RECV.R2 
PC.PRIXOR 



CIHSC 



iPRINT HEHORY ADDRESS IN ERROR 
iGET EXPO DATA 
iGET RECEIVED DATA 
tPRINT EXPD/RECV 



PRAHPKT • PRINT RAH AND PACKET DATA 



{PRINT ROUTINE TO DISPLAY RAH/PACKET DATA 
tUHEN THE RAH DATA DOES NOT HATCH. 



fINPUTSi 
I 

I R4 

ilHPLICIT INPUTS: 

! RAMOATA 
t RAHSIZ 



POINTER TO COHHAND PACKET 



DATA AS READ FROH THE RAH 
NUMBER OF BYTES IN PACKET 



TSV3 - GLOBAL AREAS 
PRAMPKT 



1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 



HACRO niiis 
PRINT RAH AND PACKET DATA 



Ol-FEB-84 17i02 



1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 



013606 

013606 

013612 

013616 

013620 

013622 

013624 

013634 

013636 

013642 

013646 

013656 

013662 

013670 

013676 , 

013676 

013700 

013704 

013710 

013712 

013716 

013722 

013724 

013726 

013732 

013734 

013740 

013742 

013746 

013750 

013752 

013756 

013760 > 

013764 

013766 



F5 



IF RAHSIZ-0 THEN DEFAULT TO 8. 



SEQ 057 



012701 002242* 
005002 
122124 
001005 



000436 
116105 
116403 

042703 
116137 
116437 

010346 
013746 
013746 
010246 
012746 
012746 
010600 
104414 
062706 
005202 
005737 
001404 
020237 
003724 
000403 
020227 
002720 
005037 
000207 



177777 
177777 

•V, 

. 177400 
177777 > 
177777 t 

002232' , 
002234' . 

013766' 

^^000005 : 

I 000014 
^ 002302* 
C CK>2302' > 

booolo 

002302* 



Sit 



7$: 



002234* 
002232* 



IHPLICIT OUTPUTS I 

RAHSIZ ^ SET TO 0 



PRAHPKT: " 

SAVREG 

HOV ^ «RAHDATA.R1 
CLR R2 
! CHPB ^ CR1)*,CR4)» 

BNE' 71 , ^ 
> FORCERROR : 7t,N0TSSR 
BR^ . ^ .10% ' . ' 
HOVB' i -URD.RS - 
. HOVB ' --l(R4).R3 • 
XOR o%R5,R3-.^ ^\ u 
BIC ;.t./«177400.R3 

HOVB : :-icRi).REcv : , 

HOVB ; -1(R4>,EXPD 
: PRINTB, ^«RAHASC.R2.RECV.EXPD.RS 
^ HOV. R5,'-(SP) M .-'^ ' . ^ 
H0V..V1EXPD.-CSP) 

f RECV.-CSP)^ ' 
^R2,-CSP); > ' 

•RAHASC.-CSP).-;* , . 
••5.-CSP)-- 
ISP.RO fr,:'"-- H 
CIPNTBVJ:-'/- 3 , . ."--^ • 
..•M.SPiv*'^^- ' <■ 
.R2-. ■>''.^ \ f c 

RAHSIZ - ; \ 



iSAVE R1-R5 UNTIL NEXT RETURN 

I DATA FROH THE RAH 

fINIT BYTE NUHBER 

iCOHPARE EXPECTED. RECEIVED 

tBR IF NO HATCH 

iSOO 

tGET RECV RAH DATA 

tGET EXPD PACKET DATA 

tXOR EXPD/RECV 

I LOU BYTE ONLY 

tGET RECEIVED RAH DATA 

tGET EXPECTED RAH DATA 



lot: 



15$: 
201: 
25tt 



HOV"; 
HOV 

:Hov:,;'i> 

.H0Vt;^i: 
NOV- .5v 
TRAP 

!aoo 
iNc: 

TST , * : 
-BEQt'^;,' 
'CHp:.\ 

BLE H 
iBR'>- 'v. 

CHP . 

BLT.':>:, 

•CLR^^ 



\RTS: 



045 



'151 - . 
R2.RAHSZZ, 

:25i,*; V. 

.R2.«8. . 

,51 C'. 
RAHSIZ: 

PC-, 



lUPOATE BYTE COUNT 
lOEFAULT TO 8.7 
iBR IF-YES 
tOONE ALL BYTES? 
tBR IF NO , 

!60NE DEFAULT NUHBER OF. BYTES? 
I BR IF NO 

I SET DEFAULT RAHSIZ 
tRETURN. , • • 



116 



045 RAHASC: .ASCIZ,/„««tfA\BYTEt «02tfA RAHi««05tfA Packet: «03«A X0R:«0S' 

, ' • ';even ,\'r-".^r' ^ ^ - . - 

. * s.SBTTL^^PRHESS - PRINT CONTENTS OF HESSAGE BUFFER 

t* " 

• ' -i^"- •; ' 

tTHIS R0UTIF£ PRINTS THE CONTENTS OF 

tTHE'7 0R»8 UORO HESSAGE BUFFER RETURNED BY THE 

tTSV«05. r\, r ' '^^ ' 

tINPUTi ' . , 

! RO LOU ORDER ADDRESS OF. HESSAGE BUFFER 

t Rl HIGH ORDER ADDRESS OF HESSAGE BUFFER 

t NOTE: Rl IS IGNORED IF KTENABLE FLAG IS CLEAR 



G5 



TSV3 GLOBAL AREAS MACRO K1113 Ol-FEB-84 17:02 
PRMESS PRINT CONTENTS OF MESSAGE BUFFER 



SEQ 058 



1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 



1780 



1781 
1782 
1783 
1784 
1785 
1786 
1787 



1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 



014052 
014052 
014056 
014060 
014064 
014066 
014070 
014072 
014074 
014076 
014076 
014100 
014102 
014106 
014112 
014114 
014116 
014122 
014122 
014126 
014132 
014134 
014136 
014142 
014144 
014146 
014150 
014152 
014156 
014160 
014160 
014162 
014164 
014170 
014174 
014176 
014200 
014204 
014206 
014212 
014214 
014216 
014224 
014226 

014230 
014275 
014SS3 



010005 
005737 
001001 
005001 
010103 
006100 
006101 

010546 
010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 

062706 
005004 
010501 
010300 
001403 
004737 
010005 

012546 
010446 
012746 
012746 
010600 
104415 
062706 
005204 
020427 
003005 
002761 
032763 
001355 
000207 

045 
045 
045 



I THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 
I 

I - 

PRMESS: 



003134' 



lOt: 



014230' 
000003 



000010 

014275' 
000001 



000004 



017130' 



014333' 
000003 



000010 
000007 



20tt 



000200 000012 



116 045 
116 045 
116 045 



501 1 



SAVREG 

MOV 

TST 

6NE 

CLR 

MOV 

ROL 

ROL 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

PRINTX 

NOV 

MOV 

MOV 

TRAP 

AOO 

CLR 

MOV 

MOV 

BEQ 

JSR 

MOV 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

AOO 

INC 

CMP 

BGT 

BLT 

BIT 

BNE 

RTS 



PROASC: .ASCIZ 
PRIASC: .ASCIZ 
PRASC: .ASCIZ 
.EVEN 



I SAVE THE REGISTERS 
I SAVE LOU ORDER ADDRESS 
I ADDRESS ABOVE 28K? 
I BR IF YES 

I SET HIGH ORDER ADDRESS TO 0 
I SAVE HIGH ORDER ADDRESS 
I SHIFT BIT15 TO C BIT 
t SHIFT TO HIGH ORDER FOR PRINTOUT 
{PRINT MESSAGE BUFFER ADDRESS 



R0.R5 
KTENABLE 

lot 

Rl 

R1,R3 
RO 
Rl 

«PR0ASC.R1.R5 
R5.-(SP) 
Rl.-(SP) 
•PROASC. -(SP) 
#5.-(SP) 
SP.RO 
C<PNTX 
•10. SP 
•PRIASC 
•PRIASC. -(SP) 
•l.-(SP) 
SP.RO 
CIPNTX 
•4.SP 
R4 

R5.R1 
R3.R0 
201 

PC.SETMAP 
R0.R5 

•PRASC. R4.(R5)* 
(R5)».-(SP) 
R4.-CSP) 
•PRASC, -CSP) 
•3.-CSP) 
SP.RO 
CIPNTX 
•10. SP 

R4 (NUMBER OF THE NEXT 

R4.^7 tOONE ALL YET ? 

sot (BRANCH IF ALL DONE 

20t tPRINT FIRST 7 WORDS 

•X2.EXTF.XST2(R3)t EXTENDED FEATUTES ON ? 
201 t PRINT EXTENDED STATUS UORO 

PC {RETURN 

'MMA MM«ag« Buffer - «}1«05' 

'MWA M«M«o» Buffer Contents:' 
•tfNtfA Uord«01KA; tfO' 



t PRINT HEADER FOR CONTENTS 



{NUMBER OF THE NEXT WORD 
(COPY LOU ORDER ADDRESS 
(COPY HIGH ORDER ADDRESS 
(BR IF NOT ABOVE 28K 
(SETUP PAR ADDRESS IN RO 
(GET PAR FORMAT ADDRESS ABOVE 28K 
(PRINT THE CONTENTS OF MEMORY BUFFER 



.SBTTL PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 



H5 



TSV3 • GLOBAL AREAS 
PRMSGEXP 



MACRO Mills 01-FEI 
PRINT EXP0/R6CV MESSAGE BUFFERS 



B-64 17:02 



SEQ 059 



1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 



ROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 



RO 

IMPLICIT INPUTS: 



NUMBER OF WORDS IN BUFFER 



EXPMSG - EXPECTED MESSAGE BUFFER 
RECMSG - RECEIVED MESSAGE BUFFER 

RCVMIADO- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD- RECEIVED MESSAGE BUFFER LOU ORDER ADDRESS 



1815 014362 






PRHSGEXP > • 






1816 014362 






SAVREG 




iSAVE R1-R5 UNTIL NEXT RETURN 


1817 014366 


010005 




MOV 


R0.R5 


iSAVE NUMBER OF WORDS 


1818 014370 


013700 


002306' 


MOV 


rcvloaoo.ro 


iGET RECV LOU ADDRESS 


1819 014374 


010004 




MOV 


R0.R4 


iCOPY LOU ADDRESS 


1820 014376 


013701 


002304' 


MOV 


RCVHIADD.Rl 


iGET RECV HIGH ADDRESS 


1821 014402 


006100 




ROL 


RO 


iSHlFT BIT15 TO C BIT 


1822 014404 


006101 




ROL 


Rl 


{SHIFT TO HIGH ORDER FOR PRINTOUT 


1823 014406 






PRINTX 


#PRMSG0.R1.R4 


1 PRINT MESSAGE BUFFER ADDRESS 


014406 


010446 




MOV 


R4* -(SP) 


014410 


010146 




MOV 


Rl. -(SP) 




014412 


012746 


014542' 


MOV 


#pmisGo.-(SP) 




014416 


012746 


000003 


MOV 


#3. -CSP) 




014422 


010600 




nov 


SP.RO 




014424 


104415 




TRAP 


CIPNTX 




014426 


062706 


000010 


ADO 


#10«SP 




1824 014432 






PRINTX 


tPRMSGl 


1 PRINT HEADER FOR CONTENTS 


014432 


012746 


014607' 


MOV 


tPRMSGl. -CSP) 

#1. ofSP) 




014436 


012746 


000001 


MOV 




014442 


010600 




MOV 


SP.RO 




014444 


104415 




TRAP 


CIPNTX 




014446 


062706 


000004 


ADD 


#4«SP 




1825 014452 


005004 




CLR 


R4 


iNUnBER OF THE CURRENT UORO 


1826 014454 


012701 


002322' 


NOV 


•EXPMSG. Rl 


iGET EXPO BUFFER ADDRESS 


1827 014460 


012702 


002466' 


nov 


•RECnSG.R2 


iGET RECV BUFFER ADDRESS 


1828 014464 


011100 




20* : nov 


(Rl).RO 


iGET EXPO 


1829 014466 


011203 




nov 


CR2).R5 


iGET RECV 


1830 014470 






XOR 


RO.RS 


iXOR EXPO/RECV 
*.(R2)*.RS 


1831 014500 






PRINTX 


•PRnSG2.R4.(Rl) 


014500 


010346 




nov 


R3,-(SP) 


014502 


012246 




nov 


(R2)»,-(SP) 




014504 


012146 




nov 


(R1)*.-(SP) 
R4.-(SP) 




014506 


010446 




nov 




014510 


012746 


014645' 


nov 


•PRnSG2.-(SP) 




014514 


012746 


000005 


nov 


#5,.(SP) 




014520 


010600 




nov 


SP.RO 




014522 


104415 




TRAP 


CIPNTX 




014524 


062706 


000014 


AOO 


♦14. SP 




1832 014530 


005204 




INC 


R4 


iNUnBER OF THE NEXT 


1833 014532 


020405 




CMP 


R4.R5 


tOONE ALL YET? 


1834 014534 


002001 




BGE 


501 


iBR IF YES 


1835 014536 


000752 




BR 


201 


iDO ANOTHER 


1836 014540 


000207 




SOI: RTS 


PC 


{RETURN 


1837 








1838 014542 


045 


116 


045 PRnSGO: .ASCIZ 


'«NM n«Mag« Buff«p Addr«M « il31«05' 



15 



TSV3 - GLOBiU. AREAS riACRO nillS Ol-FEB-64 17:02 
PRNSGEXP • PRINT EXPO/RECV tCSSAGE BiTrERS 



SEU 060 



1839 
1640 
1841 
1842 
184S 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
185S 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 



014607 
014645 



1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1684 
1885 



014732 
014732 
014736 
014740 
014744 
014746 
014752 
014756 
014760 
014764 
014770 
014772 
014776 
015002 
015012 
015014 
015016 
015022 
015030 
015032 
015032 
015034 
015040 
015044 
015046 
015052 
015056 
015060 
015062 
015066 
015076 
015100 
015100 
015110 
015110 
015112 
015114 
015116 
015120 
015120 



045 
045 



010005 
005037 
005004 
012701 
012702 
111100 
042700 
110037 
111203 
042703 
110337 

122122 
001431 
005237 
023727 
101023 

010346 
013746 
013746 
010446 
012746 
012746 
010600 
104415 
062706 

000404 



005204 
020405 
002001 
000717 



116 
116 



045 
045 



PRMSGl: .ASCIZ '««tA n«MaM Buffer Content*:' 

PRnSG2: .ASCIZ 'MWA WORD MD2tfA EXPO: «06«A RECV: «06«A XOR: «06' 
.EVEN 

.S6TTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGC BUFFER 



ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 

ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 

RO • NUMBER OF BYTES IN BUFFER 

IMPLICIT INPUTS: 



EXPMSG - EXPECTED MESSAGE BUFFER 
RECMSG - RECEIVED MESSAGE BUFFER 



PRBYTEXP: 



002320' 

002322' 
002466' 

177400 
015300' 

177400 
015302' 



002320' 

002320' 000010 



015302' 
015300' 

015146' 
000005 



20t: 



271: 



000014 



013746 002320' 



30>: 
35t: 



50t: 



SAVREG 
MOV 
CLR 
CLR 
MOV 
MOV 
MOVB 
BIC 
MOVB 
MOVB 
BIC 
MOVB 
XOR 
CMPB 
BEQ 
INC 
CMP 
BHI 

PRINTX 
MOV 
?10V 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADO 

FORCEXIT 
BR 35t 



tSAVE R1-R5 UNTIL NEXT RETURN 

R0.R5 I SAVE NUMBER OF BYTES 

PRMNO iINIT ERROR COUNT 

R4 iNUMBER OF THE CURRENT BYTE 

•EXPMSG. Rl (GET EXPO BUFFER ADDRESS 

«RECMSG.R2 I GET RECV BUFFER ADDRESS 

(Rl).RO iGET EXPO BYTE 

♦tC<377>.R0 laEAR UPPER BYTE 

RO.PRBEXP tSAVE FOR ERROR REPORT 

(R2).R3 iGET RECV BYTE 

#tC<377>.R3 iCLEAR UPPER BYTE 

R3.PRBREC iFOR ERROR REPORT 

R0.R3 I XOR EXPO/RECV 

(R1)».(R2)* lEXPO • RECV? 

SOI iBR IF YES 

PRMNO I UPDATE ERROR COUNT 

PRMNO. #6. {PRINTED 87 

SOI I BR IF YES 



•PRBMSGtR4, PRBEXP.PRBREC.RS 

RS.-CSP) 
PRBREC.-(SP) 
PR6EXP.-(SP) 
R4..(SP) 
•PRBMSG.-(SP) 
♦5.-(SP) 
SP.RO 
CIPNTX 
«14.SP 



501 



FORCERROR 27I.N0TSSR 



INC 
CMP 
BGE 
BR 

PRINTX 
MOV 



R4 

R4.R5 

501 

201 

«PR6T0T. PRMNO 
PRMNO, -(SP) 



|880 

isao 

iB8D 
iBSO 

•NUMBER OF THE NEXT 
lOONE ALL YET? 
iBR IF 1ES 
I DO ANOTHER 

I PRINT TOTAL ERROR COUNT 



J5 



TSV3 - GLOBAL AREAS HACRO HlllS Ol-rEB-84 17:02 
PRBYTEXP . PRINT ERROR BY1ES IN EXP/REC MESSAGE BUFFER 



SFQ 061 





015124 


012746 


015233' 






MOV 


♦PRBTOT, -(SP) 




015130 


012746 


000002 






MOV 


♦2, -(SP) 






015134 


010600 








MOV 


SP.hO 








4 Ate 








TOAD 


C»PNTX 






015140 


062706 


000006 






ADD 


«6.SP 




1866 


015144 


000207 








RTS 


PC 


•RETURN 


1887 


















1888 


015146 


045 


116 


045 


PRBHSG: 


.ASCIZ 


•KNitA BYTE 


•tfOSKA EXPO: M3«A 


1889 


015233 


045 


116 


045 


PRBTOT: 


.ASCIZ 


•tfNtfA NUMBER 


OF BYTES IN ERROR - 


1890 












.EVEN 






1891 


015300 


000000 






PRBEXP: 


.UORD 


0 


lEXPO 


1892 


015302 


000000 






PRBREC: 


.UORD 


0 


tRECV 



1907 
1908 



1893 
1894 

1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 

1906 015304 
015304 
015304 
015310 
015310 
015310 

1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 



1927 
1928 



1929 
1930 
I93I 



015312 
015312 
015312 
015316 
015316 
0I53I6 



.SBTTL EXPREC - PRINT EXPD/RECV UORD DATA 



PRINT ROUTINE TO OISPi.AY EXPD/RECV DATA 
INPUTS: 

Rl RECEIVED DATA 

R2 EXPECTED DATA 



004737 007554' 



104423 



EXPREC: 



L10017: 



BGNMSG EXPREC 

JSR PC.PRIXOR 
ENOnSG 



{PRINT THE DATA 



TRAP 



CIHSG 



.SBTTL EXPBREC - PRINT EXPD/RECV BYTE DATA 
PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 



INPUTS: 



004737 007424* 



104423 



Rl RECEIVED DATA BYTE 

R2 EXPECTED DATA BYTE 



BGW1SG EXPBREC 
EXPBREC:: 

JSR PC.PRIBXOR 
ENDMSG 

L 10020: 

TRAP CtMSG 



I PRINT THE DATA 



I<5 



TSV3 - GLOBAL AREAS HACRO HI 113 
EXPBREC - PRINT EXPO/RECV BYTE DATA 



1932 
1933 
1954 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
194S 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 



01 FEB -84 17:02 



SEQ 062 



.SBTTL RAHERR - PRINT RAM AND PACKET DATA 

PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
INPUTS: 

R4 POINTER TO COMMAND PACKET 

IMPLICIT INPUTS: 



RAMOATA 
RAMSIZ 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ-0 THEN DEFAULT TO 8. 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 0 



1954 
1955 



1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 

1981 
1982 
1983 



015320 
015320 

015320 004737 013606' 

015324 

015324 

015324 104423 



RAMERR: ; 



L 10021: 



BGNMSG RAMERR 

JSR PC.PRAMPKT 
ENOMSG 

TRAP CIMSG 



I PRINT RAM/PACKET DATA 



.SBTTL RAMTADO - PRINT TEST ADDRESS. RAM AND PACKET DATA 

PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
INPUTS: 

R4 POINTER TO COMMAND PACKET 

IMPLICIT INPUTS: 



RAMDATA 
RAMSIZ 

ERRHI 
ERRLO 



DATA AS READ FROM THE FtAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ-O THEN DEFAULT TO 8. 
HIGH ORDER TEST ADDRESS 
LOU ORDER TEST ADDRESS 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 0 



015326 
015326 

015326 004737 010106' 
015332 004737 013606' 
015336 
015336 



RAMTADD: 



BGNMSG RAMTADD 



L 10022: 



JSR 
JSR 

ENDMSG 



PC.PRITAOO {PRINT TEST ADDRESS 

PC.PRAMPKT iPRINT RAM/PACKET DATA 



TSV3 • GcOBAt AREAS 
RAMTAOD 



^.^^^ MACRO MlllS Oi-FEB-64 17502 

PRINT TEST ADDRESS. RAH AND PACKET DATA 



L5 



SEQ 063 



1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 

1999 
2000 
2001 
2002 
2003 



2004 
200S 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 

2018 



2019 
2020 



2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 



015336 1044^3 



TRAP 



CinSG 



015340 
015340 
015340 
015344 
015350 
015354 
015360 
015360 
015360 



042701 
042702 
004737 
004737 



104423 



177400 
177400 
007700' 
007554* 



015362 
015362 
015362 
015362 
015366 
015372 
015374 
015376 
015402 
015406 
015406 
015406 



015410 



012746 
012746 
010600 
104415 
062706 
004737 



104423 

045 



015410' 
000001 



000004 
007554' 



116 



.SBTTL RAMEXP 



PRINT RAH EXPO/RECV DATA 



PRINT ROUTINE TO DISPLAY EXPO/RECV DATA 
INPUTS: 

Rl RECEIVED DATA 

R2 EXPECTED DATA 

R4 CONTROLLER RAM ADDRESS 



RAMEXP: : 



BGNHSG RAfCXP 



L10023: 



BIC 
BIC 
JSR 
>R 
cNOMSG 

TRAP 



♦tC<377>.Rl 
♦tC<377>,R2 
PC.PRIRAH 
PC.PRIXOR 



CIHSG 



(SAVE EXPD RAM DATA BYTE 
I SAVE EXPO RAM DATA BYTE 
I PRINT THE RAM ADDRESS 
{PRINT THE DATA 



.SBTTL TIMEXP - PRINT TIMER A.B AND EXP/REC 



PRINT ROUTINE TO DISPLAY EXPO/RECV DATA 
AND TIMER A.B HEADER MESSAGE 



INPUTS: 



Rl RECEIVED DATA 

R2 EXPECTED DATA 



TIMEXP:: 



BGNMSG TIMEXP 



PRINTX tTIMSGO 
MOV •TIMSGO.-(SP) 
♦l.-CSP) 
SP.RO 
CIPNTX 
«4.SP 
PC.PRIXOR 



L10024: 



MOV 
MOV 
TRAP 
ADO 
JSR 

ENOMSG 



(PRINT HEADER 



(PRINT THE DATA 



TRAP 



045 



TIMSGO: .ASCIZ 
.EVEN 



CIMSG 



'tfNtfA TIMER A STATUS IS IN BIT 3««(A TIMER B STATUS IS IN BIT 2' 



.SBTTL BADSSR - PRINT JSSR ERRORS ON DATA TRANSFERS 



M5 



TSV5 • GLOBAL AREAS MACRO HlllS 01 -FEB -64 17:02 
BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 



SEQ 064 



2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 

2041 
2042 
2043 



2044 
2045 
2046 



2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
20.^ 
2074 
2075 
2076 



015510 
015510 
015510 
015512 
015516 
015516 
015520 
015524 
015530 
015532 
015534 
015540 
015542 
015546 
015546 
015546 
015550 



010246 
042702 

010246 
012746 
012746 
010600 
104414 
062706 
012602 
004737 



104423 
045 



177400 



015550' 
000002 



000006 
005636' 

116 



PRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 
INPUTS: 

Rl CONTENTS OF TSSR 

R2 DATA URITTEN (8 BITS) 



BADSSR: 



BGNMSG BADSSR 



L 10025: 
045 XFERASC: 



MOV 
BIC 

PRINTB 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

MOV 

JSR 

ENOnSG 
TRAP 



R2.-(SP) 

♦177400. R2 

♦XFERASC. R2 

R2.-(SP) 

♦XFERASC. -(SP) 

♦2.-(SP) 

SP.RO 

CtPNTB 

♦6.SP 

(SP)*.R2 

PC.PRITSSR 



{SAVE DATA TRANSFERRED 
tGET JUST ONE BYTE 



I RESTORE R2 

{DECODE TSSR CONTENTS 



CtMSG 
.ASCIZ 



'«NKA Data Trmn9fmrr»d - #03' 



.SBTTL GLOBAL SUBROUTINES SECTION 

{THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
t THAT ARE USED IN HORE THAN ONE TEST. 

t" 

. SBTTL SOFINIT • SOFT INITIALIZE OF CONTROLLER 



ROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 
BY URITING INTO THE TSSR REGISTER. AFTER THE INIT. 
THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 



INPUTS: 

RS 

OUTPUTS: 



RO 

CARRY 



ADDRESS OF FIRST REGISTER 



CONTENTS OF TSSR. IF ERROR 
SET IF INIT WAS OKAY 
CLEAR IF FATAL ERROR 



I CALLING SEQUENCE: 



N5 



TSV3 GLOBAL AREAS MACRO M1115 01-FEB*a4 17:02 



SOFINIT 


- SOFT 


INITIALIZE OF CONTROLLER 










2077 








1 








2076 








t 


nov 


♦ADDRESS. R5 




2079 








s 


JSR 


PC. SOFINIT 




2080 








1 


BCS 


CONTINUE 




20S1 








• 


ER»OF 




{REPORT FATAL ERROR 


2062 








• 








2063 








; - 








2064 
















2065 


015604 






SOFINIT 








2086 


015604 








SAVREG 




t SAVE THE REGISTERS 


2067 


015610 


UXc r 03 






HOV 


«0.TSSR(R5) 


t DO THE INIT. 


2086 


015616 








JSR 


PC.WAITF 


t UAIT FOR SSR 


2089 


015622 








HOV 


TSSR(R5).R0 


iGET THE TSSR REGISTER 


2090 


015626 


A1 f%nnA. 






HOV 


R0.R4 


iTSSR CONTENTS 


2091 


015630 








BIC 


•tC<HIAD0R!0FL>.R4 


2092 


015634 








BIS 


«SSR!NBA.R4 


|R4 HAS EXPECTED CONTENTS 


2093 


015640 








CHP 


R4.R0 


tONLY EXPECTED BITS SET ? 


2094 


015642 








BEQ 


5$ 


iBRANCH IF OKAY 


2095 


015644 








CLC 




1 CLEAR THE CARRY FOR ERROR 


2096 


015646 








BR 


101 


iGO TO EXIT 


2097 


015650 






5$: 


SEC 




iSET THE CARRY BIT 


2098 


015652 


UWcU r 




10«: 


RTS 


PC 


(RETURN TO CALLER 


2099 














2100 










.SBTTL 


CHKAHB - CHECK 


TSSR FOR AHBIGUITY 


2101 
















2102 








s* 








2103 
















2104 








(THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 


2105 








(FOR AMBIGUITY 






2106 
















2107 








jiNPUT: 








2108 
















2109 










RO 


CONTENTS OF TSSR 


2110 
















2111 








lOUTPOT: 






2112 
















2113 










RO 


CONTENTS OF TSSR 


2114 
















2115 










CARRY 


SET - NO AHBIGUITY 


2116 












CLR - AHBIGUQUS 


CONTENTS 


2117 
















2118 
















2119 
















2120 


015654 






CHKAMB: 








2121 


015654 








SAVREG 




iSAVE THE GENERAL REGISTERS 


2122 


015660 


V aWV^ 






HOV 


R0.R4 


J CONTENTS OF TSSR 


2123 


015662 


UOc f\J\J 






BIT 


•SC.RO 


J IS BIT 15 SET ? 


2124 


015666 








BNE 


5» 


1 BRANCH IF YES 


2125 


015670 


032700 


174077 




BIT 


•tC<NBA!OFL!SSR!HIADDR>.RO :ANY OTHER BITS 


2126 


015674 


001025 






BNE 


40 » 


iHUST BE AN ERROR 


2127 


015676 


000424 






BR 


45$ 


i RETURN WITH SUCCESS 


2128 


015700 


032700 


000200 


5$: 


BIT 


•SSR.RO 


lis READY BIT SET ? 


2129 


015704 


001011 






BNE 


10$ 


{BRANCH IF READY BIT IS SET. 


2130 


015706 


032700 


000040 




BIT 


«6ITS.R0 


lis FATAL ERROR BIT SET ? 


2131 


015712 


001414 






BEQ 


40$ 


(ERROR IF NOT 


2132 


01S714 


042704 


177761 




BIC 


«tCTERCLS.R4 


t CLEAR ALL BUT TERHINATION CODE 


2133 


015720 


020427 


000016 




CHP 


R4.n6 


lALL THREE BITS MUST BE SET 



B6 



TSV5 • GLOBAL AREAS MACRO MHIS 0i rEB-a4 17:02 
CHKANB • CHECK TSSR TOR AMBIGUITY 



SEO 066 



2134 


015724 


001007 




2135 


015726 


000410 




2136 


015730 


032700 


000040 


2137 


015734 


001405 




2136 


015736 


032700 


000006 


2139 


015742 


001002 




2140 


015744 


000241 




2141 


015746 


000401 




2142 


015750 


000261 




2143 


015752 


000207 




2144 








2145 








2146 








2147 








2148 








2149 








2150 








2151 








2152 








2153 








2154 




000200 




2155 




000001 




2156 








2157 








2156 


015754 


000 




2159 








2160 


015755 


000 




2161 








2162 








2163 


015756 


000000 




2164 








2165 


015760 


000000 




2166 








2167 








2166 


015762 


010046 




2169 


015764 


013700 


002210 


2170 


015770 


012720 


016026 


2171 


015774 


012720 


000340 


2172 


016000 


012600 




2173 


016002 


011646 




2174 


016004 


012766 


000000 


2175 


016012 


000002 




2176 








2177 








2178 


016014 


011646 




2179 


016016 


012766 


000540 


2180 


016024 


000002 




2181 








2182 








3183 








2184 


016026 
016026 






2185 


016026 


012737 


000001 


2186 


016034 


105037 


015755 


2187 


016040 


132737 


000001 


2188 


016046 


001003 




2189 


016050 


152757 


000001 



000002 



000002 



I ERROR IF NOT SET 
lOK IF ALL ARE SET 
lis FATAL ERROR BIT SET 7 
lERROR IF BIT IS SET WITH SSR 
lis THIS A FUNCTION REJECT 
iBR. IF TSSR IS OK 
lAWIGUOUS CONTENTS 

iSHOU SUCCESS • NO AMBIGUITY 
•RETURN TO CALLER 

ENABLE/DISABLE INTERRUPTS 

! DEFAULT DISPLAY INTERRUPT HANDLERS. 

I IF DISPLAY TIME-OUT. REPORT D6V FATAL. AND ABORT PASS. 

I OTHERWISE. SAVE DPU REGISTERS AND DISMISS. 

I 

I BIT DEFINITIONS FOR "INTMASK" AND "INTFLAG" BVTESt 





BNE 


401 




BH 




lot: 


BIT 


•BIT5.ro 




BEQ 


45* 




BIT 


•BIT2iBITl.R0 




BNE 


451 


4< • 


CLC 






BR 


501 


451: 


SEC 


*»C 


501 i 


RTS 




.S8TTL 


ENAINT.OSBINT 



I0KCKIN-BIT7 I 
lOKSTP-BI^O I 



DON'T CHECK FOR BAD INTERRUPTS TEST WILL 
EXPECT -STOP- INTERRUPT. 



I INTERRUPT MASK SAYS EXPECTING INTERRUPTS 
INTMASK: .BYTE 0 

{INTERRUPT FLAG SAYS WE GOT ONE (IF POSITIVE) 
INTFLAGi .BYTE 0 

I SAVED INTERRUPT VECTOR: 
INTVEC: .WORD 0 
I SAVE CPU PC 
INTCPC: .WORD 0 



tSUBROUTINE TO ENABLE INTERRUPTS: 



ENAINT: MOV 
MOV 
MOV 
MOV 
MOV 
MCV 
MOV 
RTI 



RO.-(SP) 
IVEC.RO 
•INTR.(RO)* 
•PRI07.(R0)* 
(SP)».RO 
(SP).-CSP) 
•0.2(SP) 



I SAVE RO 
iGET POINTER TO VECTORS 
I SET UP INTERRUPT VECTOR 

I RESTORE RO 

I SET CPU TO LEVEL 0 



iSUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
DS8INT: MOV (SP).-(SP) 

MOV •PRI07.2(SP) 

RTI 



INTRt : 



.SBTTL INTR 
BGNSRV INTP 



INTERRUPT HANDLERS 

I DEFINE INTER»4UPT ENTRY 



•10V 

CLRB 

BITB 

BNE 

BISB 



•l.INTRECV 
INTFLAG 

•lOKSTP. INTMASK 
II 



I SET FLAG TO SHOW INTERRUPT RECEIVED 
I CLEAR FLAG TO SAY WE GOT INTERRUPT 
lEXPECTING STOP INTERRUPT? 
iBR IF YES 



•IOKSTP,INTFLr£ iNO. SET THE ERROR FLAG. 



TSV5 
INTR 



GLOBAL AREAS 

INTERRUPT HANOLI 



C6 



H1115 Ol-FEBM 17:02 



SEQ 06/ 



2190 
2191 
2192 
2195 



2194 

2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2206 
2209 
2210 

2211 
2212 
2213 
2214 
2215 
2216 



016056 
016056 
016056 
016056 



2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 



016060 
016062 
016062 
016064 
016070 
016074 

016076 
016100 
016100 
016104 
016106 
016112 
016114 
016120 
016122 
016126 
016130 
016132 
016134 
016136 
016140 
016142 
016144 



000002 



000401 

104422 
012746 
016500 
105700 

100420 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005316 
001356 
000241 
000401 
000261 
005326 
000207 



011000 
000002 



000001 
002116* 
177772 
177756 



•SAVE REGISTERS. MSG BUFFER. ETC. 
lit 

ENDSRV 

L10026t 

RTI 

.SBTTL WAITF - WAIT FOR SUBSYSTEH READY 
SUBROUTINE TO MAIT FOR THE SUBSYSTEM READY FLAG 
INPUTS; 

ADDRESS OF FIRST DEVICE REGISTER 



R5 
OUTPUTS: 



yAITF: 



II: 
21: 



RO 

CARRY 



BR 

BREAK 
TRAP 

nov 
nov 

TSTB 

BHI 
DELAY 

nov 

.yORD 
NOV 
.UORO 
DEC 



CONTENTS OF LAST TSSR READ 

SET - READY BIT SET 

CLR • TINEOUT UAITING FOR READY 



DEC 
BNE 
DEC 



51: 
41: 



ac 

BR 

SEC 
DEC 
RTS 



II 

CIBRK 

#11000. -(SP) 

TSSR(RS).RO 

RO 

31 

•l.CPC)* 

0 

LI0LY.(PC)» 

0 

-6(PC) 
.-4 

-22(PC) 
.-20 
(SP) 
21 

41 

(SP)* 
PC 



iNOP WHEN SUPER FIXED 

I 00 A SUPVSR BREAK FIRST. 

I25-APR1L-8S REV B - 1100 MSEC TIMER 
iREAD THE TSSR REGISTER 
I TEST FOR READY BIT SET 

I EXIT ON STOP FLAG. 
I tMIT 100 USEC 



iREDUCE DiLAY COUNT 

iRETRY UNTIL TIMER EXPIRES 

I C - 0. CONTRXLER S^ILL RUIMING. . . 

I . . .OR HUNG-UP Al TER 300 MSEC. 

I C • 1. CONTROLLER IS STOPPED. 

iRESTORE STACK WITHOUT CHANGING CARRY BIT 



.SBTTL CHKTSSR • OCCK TSSR FOR READY 

I* 

I THIS ROUTINE WAITS FOR READY IN THE TSSR 
lAND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 

I INPUT: 

! R5 ADDRESS OF CSR REGISTERS 

I 



D6 



SEO 060 



2236 
2237 



OUTPUT: 



2258 






1 RO 


CONTENTS OF TSSR 


2259 






1 CARRY 


SET - OKAY 




2240 






1 


CLR • NOT READY 


AMBIGUOUS. OR SC SET 


2241 






t 






2242 






1 " 






2245 












2244 016146 






CMKTSSP: 






2245 016146 


004737 


016060' 


JSR 


PC.UAITF 


tUAIT FOR READY 


2246 016152 


103014 




BCC 


201 


t BRANCH IF TIME OUT 


2247 016154 


004737 


015654' 


JSR 


PC.CHKAtf) 


iTSSR AMBIGOUS? 


2248 016160 


103006 




BCC 


10* 


iBR IF YES 


2249 016162 


032700 


100000 


BIT 


*SC.RO 


1 SPECIAL CONDITION SET? 


2250 016166 


001405 




BEQ 


151 


iBR IF NO 


22S1 016170 


032700 


074000 


BIT 


•<SCEiBIE!RnR!NXn>.RO lANY ERROR BITS SET? 


2252 016174 


001402 




BEQ 


151 


iBR IF NO 


2253 016176 


000241 




101: CLC 




tSET FAILURE 


2254 016200 


000401 




BR 


20« 




2255 016202 


000261 




151: SEC 




!SET SUCCESS 


2256 016204 


000207 




?0I: RTS 


PC 


iRETURN TO CALLER 


2257 












2258 






.SBTTL 


XNXN - CHECK 


FOR NONEXISTENT MEnORY 



016206 
016214 
016222 
016224 
016226 



2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 

2275 016250 

2276 016232 

2277 016254 

2278 016240 
2279 

2280 016242 

2281 016244 

2282 016250 

2283 016252 
016252 
016256 

2284 016260 

2285 016262 

2286 016264 
2267 016266 
2286 

2289 
2290 



012757 
012757 
005005 
000241 
005711 

020102 
001407 
062701 
000772 

005105 
012716 
000002 

012700 
104436 
005705 
001401 
000261 
000207 



016242* 000004 
000200 000006 



ROUTINE TO TEST FOR A NEXM IN THE RANGE (Rl) THRU (R2). 
ON RETURN. IF -Q" • 1. (Rl) - NEXM ADDRESS. 

"C" - 0, ALL ADDRESSES OK. 



CALL: 



XNXN: 



NOV AORl.Rl 
MOV A0R2.R2 
JSR PC.NXn 
RETURN 



I TEST "C" AND PROCEED. 



It: 



000002 

016252' 
000004 



21: 
51: 



NOV 
NOV 
CLR 
CLC 
TST 

CMP 
BEQ 
ADO 
BR 

con 

MOV 
RTl 

CLRVEC 

MOV 

TRAP 

TST 

BEQ 

SEC 

RTS 



*2».SM 
•PftI04.B«6 

R5 

(Rl) 

R1.R2 
51 

•2«R1 
1» 

R5 

♦3$.(SP) 



•4.R0 

CtCvEC 

R3 

.♦4 

PC 



I SET BUSERR VECTOR. 
iFLAG 

I CLEAR THE CARRY FOR NO NXM FOUND 

•TEST THE ADDRESS(ES). 

I IF ANY TRAP. CONTINUE AT 2<. 

I OTHERWISE. CONTINUE HERE. 

iBR IF FINISHED (NO NEXM'S). 

tSET NEXT ADDRESS... 

t...AND CONTINUE. 

l(K>T ONE. SET FLAG... 

I ... AND DISMISS INTERRUPT . . . 
I... AND GIVE BACK THE VECTOR. 



iDIO UE CATCH ONE ?? 

•NO. "C" - 0. SKIP NEXT. 

lYES. "C" • 1. (Rl) • NEXM AODR. 



E6 



rSV5 GLOBAL AREAS MACRO H1115 01-FEB 94 17:02 
XNXn - CHECK FOR NONEXISTENT MEHORV 



SEQ 069 



2291 
2292 
229S 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2306 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 



016270 
016270 
016274 
016276 
016302 
016304 
016310 
016312 
016314 
016316 
016320 



016322 
016322 
016324 
016330 
016334 
016340 
016344 
016350 
016352 
016356 



005737 
001006 
005737 
100403 
005337 
001002 
000241 
000401 
000261 
000207 



002170' 
002204' 
002216' 



1 CALL: LOOPTO 


ARG 


TSTLOOP: : 




TST 


NOITS 


BNE 


11 


TST 


QVP 


BMI 


11 


DEC 


LOOPCNT 


BNE 


21 


19: CLC 




BR 


31 


21: SEC 




31 : RTS 


PC 



.SBTTL TSTLOOP - CHECK ITERATION COUNT 
SUBROUTINE TO EXECUTE TEST ITERATIONS. 

EXIT UITH "C" SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 
LOOP COUNTER IS SET BY "BEGIN. TEST" HACRO. 



t ITERATIONS INHIBITED? 
I YES. 
I NO. 

iLOOPS OISALLOUED IN QUICK PASS, 
t BUHP LOOP COUNTER. 

tLOOP DISALLOWED. OR DONE. 

tLOOP ENABLED. 



.SBTTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 

PRINT THE NUHBER AND NAME OF EACH TEST AS WE GO ALONG. 
INCREMENT "TESTK" TO INDICATE THE NUMBER OF TESTS 
IN THE CURRENT RUN SEQUENCE. 

CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 
INPUT: 

RO POINTER TO TEST ID ASCIZ STRING 

OUTPUT: 

R5 ADDRESS OF FIRST DEVICE REGISTER 

IMPLICIT OUTPUTS; 

TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 

SIDE EFFECTS: 

INTERRUPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 



010046 
005037 
005037 
005037 
105037 
013700 
006300 
005737 
001430 



003154* 
016570' 
005604' 
015754' 

002202* 

003114' 



TSTSETUP: { 
NOV 
CLR 

aR 

CLR 

CLRB 

MOV 

ASL 

TST 

BEQ 



RO.-(SP) 

SIFLAG 

ERRK 

EXTA 

INTHASK 

UNITN.RO 

RO 

NODEV 
41 



SAVE THE TEST ID MESSAGE 
CLEAR "SOFT INIT" FLAG 
CLEAR LOCAL ERROR COUNTER. 
CLEAR ERROR EXTENSION FLAG. 
CLEAR INTERRUPT MASK (CHECK ERROR) 
GET THE UNIT NUMBER, 
... AND MAKE IT A WORD OFFSET. 
DID STARTUP FIND THE DEVICE? 
BR IF YES 



TSVS - GLOBAL AREAS MACRO MlllS Ql-rEB-04 17:02 
TSTSETUP • PRINT TEST NAHE AND XNIT ERROR COUNTS 



2S46 


016360 


100010 








BPL 


2349 


016362 


052760 


160000 


003176' 




BIS 


2550 


016370 










ERROF 




016370 


104455 








TRAP 




016372 


000001 








.UORO 




016374 


003734- 








.UORO 




016376 


005550* 








.UORO 


2351 


016400 


000407 








BR 


2352 


016402 


052760 


160001 


003176' 


31: 


BIS 


2353 


016410 










ERROF 




016410 


104455 








TRAP 




016412 


000002 








.UORO 




016414 


004331' 








.UORO 




016416 


000000 








.UORO 


2354 


016420 


012737 


177777 


003112' 


21: 


HOV 


2S55 


016426 










0000 




016426 


013700 


002202' 






HOV 




016432 


104451 








TRAP 


2356 


016434 










OOCLN 




016434 


104444 








TRAP 


2357 


016436 


000423 








BR 


2356 














2359 


016440 








41: 


RFLAGS 




016440 


104421 








TRAP 


2360 


016442 


032700 


001000 






BIT 


2361 


016446 


001412 








BEQ 


2362 


016450 


011600 








NOV 


2363 


016452 










PRINTF 




016452 


010046 








NOV 




016454 


012746 


016516' 






NOV 




016460 


012746 


000002 






NOV 




016464 


010600 








NOV 




016466 


104417 








TRAP 




016470 


062706 


000006 






ADD 


2364 


016474 


005237 


002214* 




l«i 


INC 


2365 


016500 








SETPRI 




016500 


013700 


002212' 






NOV 




016504 


104441 








TRAP 


2366 


016506 


005726 






Sit 


TST 


2367 


016510 


013705 


002206' 






NOV 


2366 


016514 


000207 








RTS 


2369 


016516 


045 


123 


045 


TNMIt 


.ASCIZ 


2370 












.EVEN 


2371 












2372 












.SBTTL 


2373 










1 


2374 










1 AT 


END OF EAI 


2375 










1 IF 


NORNAL ER( 


2S76 










t 




2377 


016532 








TSTEWt RFUIGS 




016532 


104421 








TRAP 


2570 


016534 


030027 


020000 






BIT 


2379 


016540 


001412 








BEQ 


2380 


016542 










PRINTF 




016542 


013746 


016570' 






NOV 




016546 


012746 


016572' 






NOV 




016552 


012746 


000002 






NOV 



F6 



SEQ 070 



3t I BH xr- NUI IDLE 

#160000.ERTABL(R0) i FLAG ERROR IN THE ERROR TABLE 
l.NXR.NXRERR i NO DEVICE HERE PRINT IT 
CtERDF 
1 

NXR 

NXRERR 
2t 

#160001, ERTABLCRO) i FLAG ERROR IN THE ERROR TABLE 



BR IF NOT IDLE 



2.N0INIT 
CtERDF 
2 

NOINIT 
0 

♦•l.DUFLG 
UNITN 
UNITN.RO 
CtDOOU 

CIDCLN 

5i 
RO 

CIRFLA 

4PNT.R0 

II 

CSP).IIO 

•TNAN.RO 

RO.-(SP) 

*TNAN.-(SP) 

•2.-(SP) 

SP.RO 

CIPNTF 

•6.SP 

TSTCNT 

IPRI 

IPRI.RO 

CISPRI 

CSP>* 

CSRA00R.R5 
PC 

'«S«T«A TMt' 



t DEVICE NOT IDLE 



I DROP THE UNIT 



I ABORT THE PASS 



I GET THE OPERATOR FLAGS. 

i PRINT THE TEST NUNBERS? 

I BR IF NO 

I GET THE ID NESSAGE 

{DISPLAY THE TEST 70 



I BUNP TEST COUNTER. 
iPRIORITY THAT OF DEVICE 



iFIX UP THE STACK 

t ADDRESS OF TSV REGISTERS ON UNIBUS 



TSTEfO • PRINT ERRORS RECEIVED 

»4 TEST. PRINT THE NUNBER OF ERRORS RECEIVED 
lOR REPORTING IS DISABLED (FLA:IER). 

RO 

CIRFLA 
RO.*IER 

II I 
•ESUN.ERRK i 
ERRK,-(SP) 
«ESUN.-(SP) 
♦2.(SP) 



BR IF "lER" NOT SET. 
PRINT ERROR COUNT. 



G6 



TSV3 GLOBAL AREAS MACRO Ml 113 01 -FEB -64 17:02 
TSTEND - PRINT ERRORS RECEIVED 



SEQ 07: 



23S1 
2382 
2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 

2414 
2415 
2416 
2417 



2418 



2419 

2420 
2421 
2422 
2423 
2424 
2425 
2426 



016556 
016560 
016562 
016566 

016570 
016572 
016611 



016656 
016662 
016664 
016670 
016672 
016676 
016700 
016704 
016706 
016710 
016712 

016714 
016716 
016722 
016724 
016730 
016734 
C16740 
016742 
016750 
016752 
016752 
016754 
016760 
016762 
016770 
016770 
016772 
016774 
016776 
017000 
017000 
017004 
017006 
017006 
017010 
017012 



010600 
104417 

062706 000006 
000207 



000000 
045 

105 



101 
122 



040 

122 



II: 

ERRK: 
ESUM: 
EMAXOU: 



MOV 
TRAP 
ADO 
RTS 

0 

.ASCIZ 
.ASCIZ 
.EVEN 



SP.RO 
CfPNTF 
•6.SP 
PC 

I LOCAL 

/«A tfOltA ERRORS/ 
/ERROR LIMIT REACHED -- 



ERROR COUNT. 
DROPPING UNIT/ 



.S8TTL INCERK 



INCREMENT LOCAL ERROR COUNT 



005237 016570' 
010046 

013700 002202' 
006300 

062700 003176' 
005210 

032710 007777 

001001 

005310 

012600 

000207 

010046 

013700 002202' 
006300 

016000 003176' 
042700 170000 
020037 002174' 
103004 

023737 016570' 002172' 
103417 

104421 

032700 000040 
001013 

012737 177777 003112' 

104455 
000004 
016611' 
000000 

013700 002202' 
104451 

104444 

012600 
000207 



I 
t 



ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 



INCERK: 


INC 


ERRK 


1 INCREMENT LOCAL ERROR COUNT 




NOV 


RO.-CSP) 


1 SAVE RO 




nov 


UNITN.RO 


1 GET UNIT NUMBER, 




ASL 


RO 


1 ... AND MAKE IT A WORD OFFSET. 




ADO 


#ERTABL,RO 


1 RO GETS ADDRESS OF ERROR TABLE ENTRY. 




INC 


(RO) 


1 INCREMENT THE DEVICE ERROR COUNT 




BIT 


♦7777, (R0> 


1 DID WE OVERFLOW THE FIELD? 




8NE 


II 


1 BR IF NO. 




OEC 


(RO) 


I YES BACK IT UP TO 7777. 


II: 


NOV 


(SP)«,RO 


t RESTORE RO 




RTS 


PC 


1 RETURN TO CALLER. 


CKEHAX; 


NOV 


RO,-(SP) 


1 SAVE RO 




NOV 


UNITN.RO 


t GET UNIT NUMBER 




ASL 


RO 


1 ... AND MAKE IT A UORD OFFSET 




NOV 


ERTABLCRO).RO 


1 GET ERROR TABLE ENTRY 




BIC 


•170000.R0 


1 EXTRACT ERROR COUNT FIELD 




CMP 


RO.GERRMAX 


1 IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 




BHIS 


11 


t BR IF YES 




CMP 


ERRK c LERRNAX 


1 IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 




BLO 


21 


1 BR IF NO 


II: 


RFLACS 


RO 


t GET OPERATOR FLAGS 




TRAP 


CIRFLA 






BIT 


#IOU,RO 


t IS DROPPING INHIBITED? 




BNE 


21 


1 BR IF YES. 




NOV 


#*I.DUFLG 


t NO DROP THE UNIT 




ERROF 


4.ENAXDU 






TRAP 


CIEROT 






.WORD 


^ 






•UORO 


ENAXOU 






.WORD 


0 






DOOU 


UNITN 






NOV 


UNITN.RO 






TRAP 


ClOOOU 






OOCLN 








TRAP 


ClOCLN 




£1: 


NOV 


(SP)*,RO 


1 RESTORE RO 




RTS 


PC 


i RETURN TO CALLER 




.SBTTL 


CKOROP - CHECK 


IF UNIT SHOULD BE DROPPED 



! CHECK IF UNIT SHOULD BE DROPPED 
I- 



H6 



TSV5 • GLOe/V. AREAS MACRO HillS 01 
CKOROP • CHECK IF UNIT SHOULD BE DROPPED 



FEB -64 17:02 



SEQ 072 



2427 01 7014 


010046 


CKDROP: 


«0V 


RO.-(SP) 


2426 017016 






FORCERROR M.NOTSSR 


2429 017026 






RFLAGS 


PO 


017026 


104421 




TRAP 


CIRFLA 


2430 017050 


032700 


000040 


BIT 


#IDU,RO 


2431 017034 


001010 




BNE 


1> 


2432 017036 


011600 




MOV 


(SP),RO 


2433 017040 


012737 


177777 003112' 


NOV 


♦-1.DUFLG 


2434 017046 






OOOU 


UNITN 


017046 


013700 


002202' 


MOV 


UNITN.RO 


017052 


104451 




TRAP 


ClOOOU 


24S5 017054 






DOCLN 


1 ABORT THE PASS 


017054 


104444 




TRAP 


ClOCLN 


2476 017056 


012600 


lit 


MOV 


CSP)*.RO 


24S7 017060 


000207 




RTS 


PC 


2438 










2459 






.SBTTL. 


CONFIG • DETERMINE CONFIGURATION OF SYSTEM 



2440 
2441 
2442 

2443 017062 

2444 017062 

2445 017066 
2446 

2447 
2440 
2449 
2450 

2451 017070 

2452 017074 

2453 017076 

2454 017104 
2455 

2456 
2457 
2456 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2476 
2479 



017106 
017112 
017114 
017116 
017120 
017126 



004737 
000207 



005737 
001403 
012737 
000207 



005737 
00140S 
000240 
000240 
012737 
000207 



015604* 



00S1S2' 
OOOOOl 



177572 



00S1S2' 



000000 177572 



SUBROUTINE - OETERNINE CWriGURATION OF TSU05 SYSTEM. 



I 
t 

CONFIG: 



JSR 
RTS 



PC.SOFINIT 
PC 



.SBTTL KTON.KTOFF 
SUBROUTINE - ENABLE HEM MGT. 



• ENABLE/DISABLE MEMORY MANAGEMENT 



i 
I 

KTON: 



TST 
BEQ 
MOV 
RTS 



KTFLG 
I* 

•l.SRO 
PC 



» GOT KT? 
i NO. 

I YES. ENAB«.E KTll. 



SUBROUTINE • DISABLE MEM MGT. 



KTOFFt 



1>: 



TST 
BEQ 
NOP 
NOP 
MOV 
RTS 



KTFLG 
It 



•0.3R0 

PC 



GOT KTll? 
NO. 



I DISABLE KT. 



.SBTTL SETMAP - SETUP PAR6 MAPPING 



THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE 
AN 22 BIT ADDRESS. THE OFFSET INTO THE PAGE 
IS RETURNED BIASED TO PAR6. 



INPUTS: 



RO HIGH ORDER ADDRESS BITS 

Rl LOU ORDER ADDRESS BITS 



TSV3 ' GLOBAL AREAS MACRO mil3 
SETHAP - SETUP PAR6 HAPPING 



■>460 








^481 








2482 








2483 








2484 








2485 








2486 








2487 


017130 






2488 


017130 






2489 


017134 


005737 


003132' 


2490 


017140 


001433 




2491 


017142 


010102 




2492 
2493 




000006 










2494 








2495 








2496 


017174 


042701 


000177 


2497 


017200 


020137 


003132' 


2498 


017204 


103011 




2499 


017206 


010137 


172354 


2500 


017212 


042702 


160000 


2501 


017216 


062702 


140000 


2502 


017222 


010200 




2503 


017224 


000261 




2504 


017226 


000401 




2505 


017230 


000241 




2506 


017232 


000207 




2507 








2508 








2509 








2510 








2511 








2512 








2513 








2514 








2515 








2516 








2517 








2518 








2519 








2520 








2521 








2522 








2523 








2524 


017234 






2525 


017234 






2526 


017240 


004737 


017106' 


2527 


017244 


010003 






Ol f 240 


013701 


AAV 4 1 

003124' 


2529 


017252 


013702 


003126' 


2530 


017256 


010321 




2531 


017260 


005302 




2532 


017262 


003375 




2533 


017264 


005737 


003132' 


2534 


017270 


001502 




2535 


017272 


004737 


017070' 


2536 


017276 


005000 





-FEB 04 17:02 



16 



SEQ 073 



(OUTPUTS: 



RO OFrSET INTO BLOCK WITH PAR6 BIAS CLE. 

CARRY SET IF SUCCESS 
CLR IF ERROR 



THE ADDRESS) 



SETMAP: 



101: 
1S>: 



5HVIfC.b 




TCT 


irT7i tl 
l\ If L.'» 






nov 


R1,R2 


.REPT 


6 


ASR 


RO 


ROR 


Rl 


.ENOR 




BIC 


♦177.R1 


CHP 


Rl.KTFLG 


BHIS 


lot 


nov 


R1.8MCIPAR6 


BIC 


•160000. R2 


ADO 


•140000. R2 


NOV 


R2.R0 


SEC 




BR 


159 


CLC 




RTS 


PC 



tSAVE R1-R4 UNTIL NEXT RETURN 
t SYSTEM HAVE ABOVE 28K? 
iBR IF NO 

I SAVE LOU ORDER BITS 

t CONVERT WORD ADDRESS TO S2W BLOCKS 
I HAKE IT DOUBLE PRECISION 

I ALINE FOR LOUER 4K BOUNDARY 
•HIGHER THAN EXISTING HEHORY? 
I BR IF YES 

t SETUP NAPPING REGISTER PAR6 
{SETUP 0ISPLACEHEN7 IN PAGE 
I ADD IN PAR6 BIAS 
•RETURN IN RO 
tSET SUCCESS 

!sET FAILURE 
•RETURN 



.S8TTL FILLHEH - FILL HEHORY WITH BACKGROU« PATTERN 
FILL HENDRY WITH A BACKGROUND PATTERN 
INPUTS: 

RO - BACKGROUND PATTERN 



FREE 
KTFLG 

OUTPUTS: 

NONE 



- FIRST LOCATION AVAILABLE TO DIAGNOSTIC 

- SET TO HIGHEST HEMORY LOCATION IF > 28K. 



FILLHEH: 

SAVREG tSAVE R1-R5 UNTIL NEXT RETURN 

JSR PC.KTOFF lOISABLE KT. 

NOV R0.R3 iCOPY TEST PATTERN 

HOV FREE.Rl iGET FIRST FREE LOCATION 

HOV FRESIZ.R2 I SIZE OF FREE SPACE BELOW 28K. 

10$: HOV R3.(R1)* i STORE A BACKGROUND WORD 

DEC R2 I DONE ALL HEHORY IN FREE SPACE? 

BGT 10$ iBR IF NO 

TST KTFLG i GOT KT? 

BEG 53$ t NO. GET OUT. 

JSR PC.KTON I YES. ENABLE KT. 

CLR RO (HIGH ORDER ADDRESS START 



J6 
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f^lLLntn 


- r ILL 


MEMORY WITH BACKGROUND PATTERN 










017300 


013701 


003152' 






nuv 


DCTVOU D1 




25 5o 




000006 








DCDT 


O 
















LLC 




iTl PAD r RTT 
1 LLCMH L OX 1 














DAi 
KOL 


Kl 


i^AlkJUPDT Al ATtfC TA UADAC 


2341 












NUL 


DA 
HO 


iMAKC Ti AAini P DDP^TCTAHl 
tnfM%C XI UUUOLC fHCLXsXUN 


2o42 


















2^43 


A1 7VCA 


004757 


017130' 






ICD 


or CP TMAP 


iCPTiO PADI^ HAPPTMfl DPrtTCTPD 
1 9C 1 UV^ rn9%s> rWf'Ano HCUX9ICH 


i;D44 


7VC^ 


010320 






30t: 


MAU 

nuv 


D V f DA A 
Ho , i HU J ♦ 


■ CTADP TPCT DATTPDia TIU >PAir AAAOPCC 


c34D 


Ol r530 


020027 


160000 






THD 


DA Al AAAAA 
HU f VXOUUUV 


■ PMA AP PADI% MAPPTMfl ADPA9 


c34o 


Ol rOo2 


103774 








m n 

DL.U 


XAt 
dUf 


■ RD TP km 

1 OH x" riu 


2^ ' 


Ol r 


162700 


020000 






cm 


APAAAA DA 
VcUUUU • HU 


• RArKtO TMTn PADI^ MAPPTMft RPflTIa 




Ol f Of%J 


062737 


000200 


172354 




Ann 


APAA fiiAKTPAPA 


tPATI^T TA MPyT AhC Rl ATK >PAK 




Ol r <9 rO 


013V05 


003132' 








KTn R PS 


aHPT yAl liP PQAH MPHADY CT7PD 




A1 7AAP 
Ol f ^OC 


042705 


170000 








Al 7AAAA DS 
wX » UUVU » H3 


flOiA Y 1A RTTC PACC 
1 wi^^ 1 xo ox 1 9 ~n99 




A1 7AAiL 
Ol r^Of> 


023705 


172354 






THP 


DAKTPADI^ DS 


tPND or HEHQRY7 




A 1 7 A % P 

Ol Ic 


001427 








RPO 
DCU 


SAi 
3Uf 


tRD TP YPC 




A 1 7 A 1 A 
Ol f ^1^ 


005737 


003144' 






TCT 


TPXA 


iPOATPCCAD TYPP A 


cDD4 


A1 7 A PA 
Ol f^CSf 


001407 








DCIa 


xst 


iMA *fPPP HATMf; 




A1 7APP 

VI f 


013704 


177572 






MAU 


CDA DA 






A1 7APA 
Ul r^cO 


042704 


177761 






RTr 


Al 777At DA 


iTLPAP ALL BUT PtkGP MUMRPR 




A1 7AXP 

Ol f 


022704 


000016 








At A DA 

wXO • H^ 


i^PP TP PACP 7 




A1 7AYi^ 
Ol f ^OO 


001415 










SAi 


flPyTT TP THPRP 




A1 7AAf\ 

VI f 


005737 


003146' 




SSI: 


1 9 1 


1 coo 


ipRnrpccon typf b 




A1 7AAA 


001410 










ASt 


flMA KPPP HATMH 




A1 7AAi^ 

Ol f 


023727 


172354 


007600 




rMD 

Lnr* 


OAI^TPADA A7IUV) 
WI\XVWfO 9 w fOUU 


tDPACHPn 1A RTTC7 
1 r^CM^flCU XO OX 1 9 » 




A1 7A^^ 

Ol f 


103001 










AAt 
^Uf 


t YES 




A1 7A^^ 

Ol f 


000403 








OH 


451 


iNO KEEP GOING 


C004 


A1 7A£^ 

Ol f 4dO 


012737 


000020 


172516 


40t: 


MAU 

nuv 


#20.SR3 


iSET mu RELOCATION 




Al 7AilX. 
Ol f4©0 


000137 


017354' 




451: 


JMP 


301 


iKEEP GOING ON ETC. 




A1 7A70 
Ol f ^ f C 


004737 


017106' 




SOI: 


JSR 


PC.KTOFF 


t DISABLE KT. 




Al 7A7iL 
Ol fm rO 


000207 






SSI: 


RTS 


PC 


































.SBTTL 


CHPHEM - COMPARE MEMORY TO BACKGROU^sC ^AU&RN 




















f 1 










1 COMPARE NErmRY UITH A BACKGROUND PATTERN 




















C3 « O 










1 INPUTS: 




































RO - BACKGROUND PATTERN 




PS 7 A 












FREE 


• FIRST LOCATION AVAILABLE TO DIAGNOSTIC 


PS77 












KTFLC 


« SET TO HIGHEST 


MEMORY LOCATION IF > 26K. 






























1 OUTPUTS: 




































CARRY 


- SET IF NO ERROR 














CARRY 


- CLR IF ERROR 
































1 IMPLICIT OUTPUTS: 




PSAS 


















PSAJ; 












ERRHI 


. ERROR HIGH ADDRESS 


2567 












ERRLO 


• ERROR LOU ADDRESS 


25M 












EXPO 


- EXPECTED DATA 




2589 












RECV 


• RECEIVED DATA 




2590 


















2591 


017500 








CHPMEM: 








2592 


017500 










SAVREG 




iSAVE R1-R5 UNTIL NEXT RETURN 


2593 


017504 


010003 








MOV 


R0.R3 


iCOPY TEST PATTERN 



TSV3 • GLOBAL AREAS 


MACRO Mil 15 01 -FEB 84 


1 7 • ftp 
til yjc 






CHPMFM 


- COHPARE HEHORY TO BACKGROUND PATTERN 








017506 


004737 


017106' 






■ nTQARl P kT 




017512 


013701 


003124' 


MOW 








017516 


013702 


003126' 


NOV 


FRPST7 R2 


iST7F or TRFF QPAPP RPl Hu PAir 


c3 7 r 


017522 


020311 


101: 


CMP 


R3 TRl*) 


iFRPP SPACF L or AT TOM FOllAl TH P /PH'? 




017524 


001411 








■RQ TP YF^ 

ion Xr 




017526 


010137 


002240' 


Hnw 


Rl FRRL n 


• QAVF AODRFQ^ TM FPROQ 




017532 


005037 


002236* 


CLR 


FRRHT 


(NO HIGH ADDRFSS 




017536 


010337 


002232' 




R3 FXPO 


tSAVF PXPO FOR FRROR QFPnOT 




017542 


011137 


002234* 


MOV 


(Rl) RECV 


iSAVE RECV FOR ERROR RFPORT 




017546 


000474 




BR 


50$ 






017550 


005721 


15$: 


TST 




t POINT TO NEXT ADDRESS 




017552 


005302 




DEC 


R2 


iDONE ALL MEMORY IN FREE SPACE '> 




017554 


003362 




BGT 


10$ 


tBR IF NO 

1 W" A* 1 




017556 


005737 


003132' 


TST 


KTFLG 


1 GOT KT7 




017562 


001472 




www 


55$ 


1 NO GET OUT 

1 • VW • WW I WW I • 




017564 


004737 


017070' 


JSR 


PC KTON 


1 YES ENABLE KT 




017570 


005000 




CLR 


RO 


iHIGH ORDER ADDRESS START 




017572 


013701 


003152' 


MOV 


PST32U.R1 


tGET >2AK START ADDRESS (IN 32U BLOCKS 






000006 




• REPT 


6 




2613 








ROL 


Rl 


1 CONVERT BLOCKS TO UORDS 


2614 








ROL 


RO 


iMAKE IT DOUBLE PRECISION 


261^ 








.ENDR 






2616 


017626 


042701 


000177 


BIC 


♦177. Rl 


1 ALINE 4K BOUNDARY 


2617 


017632 


010046 




MOV 


R0« -(SP) 


tSAVE HIGH ORDER 


261A 


017634 


010146 




MOV 


Rl. *CSP) 


iSAvE LOy ORDER 


2619 


017636 


004737 


017130' 


JSR 


PC SPTMAP 


1 SETUP PAR6 MAPPIli^ REGTSTFR 


2620 


017642 


010004 




MOV 


R0.R4 


iCOPY ADDRESS BIASED TO PAR6 


2621 


017644 


012601 




MO 


(SPl* .Rl 


1 RESTORE LOy ORDER IN MON PAR6 FORMAT 


2622 


017646 


012600 




MOV 


(SPl^ RO 


t RESTORE HIGH ORDER IN I^CM PAR6 FORMAT 


2623 


017650 


020314 


301: 


CMP 


RS (R4) 


1 ABOVE 2AK LOCATION ^OlJAL FXPD'> 


2624 


017652 


001411 




REO 


32$ 


iBR IF YES 

1 wn X> 


2625 


017654 


010037 


002236' 


MOV 


RO ERRHI 

nw t VIM f A 


iSAVE HIGH ORDER TN FRROR 


2626 


017660 


010137 


002240' 


MOV 


Rl.ERRLO 


iSAVE LOy ORDER IN ERROR 


2627 


017664 


010337 


002232' 


MOV 


RS.CXPD 


iSAVE EXPO FOR ERROR REPORT 


2628 


017670 


011437 


002234' 


MOV 


tR4).RECV 


iSAVE RECV FOR ERROR REPORT 


2629 


017674 


000421 




BR 


50$ 




2630 


017676 


062701 


000002 321: 


ADO 




t UPDATE NON PAR6 ADDRESS 


2631 


017702 


005500 




ADC 


RO 


iMAKE IT DOUBLE PRECISION ADD 


2632 


017704 


062704 


000002 


ADD 


#2 R4 


iUPDATE PAR FORMAT ADDRESS 


2633 


017710 


020427 


160000 


CMP 


R4 #160000 

f W A WWW 


kEND OF PAR6 MAPPING AREA? 


2634 


017714 


103755 




BLO 


30$ 


1 BR IF NO 


2635 


017716 


162704 


020000 


SUB 


#20000 R4 

wCt WW • 


1 BACKUP INTO PAR6 MAPPING RFGIN 


2636 


017722 


062737 


000200 172354 


ADO 


#200 a#KTPAR6 


1 POINT TO NEXT 4K BLOCK >2aK 


2637 


017730 


023757 


172354 003132' 


CMP 


8#KIPAR6, KTFLG 


tEND OF MEMORY 7 


2638 


017736 


101744 




BLOS 


30$ 


|BR IF NO 




017740 


004737 


017106' 50$: 


JSR 


PC KTOFF 


iTURN OFF MEMORY MAPPING 


2640 


017744 


000241 




cue 




• CCT PATI lOC 


2641 


017746 


000403 




BR 


60I 

Mw* 






017750 


004737 


017106' 55$: 


JSR 


pr KTorr 


1 TURN OFF MEMORY MAPPING 


2643 


017754 


^^^^^^ m 

000261 








2644 


017756 


000207 


60$: 


RTS 


PC 




2645 














2646 








.SBTTL 


REGSAV • SAVE 


R1*R5 ON STACK 


2647 






I ♦ 








2648 














2649 






(ROUTINE TO 






2650 






iSAVE Rl THROUGH RS ON THE STACK 



SEO 075 



L6 



TSV5 - GLOBAL AREAS MACRO Mil 13 
REG5AV - SAVE R1-R5 ON 3TACK 

2651 
2652 
2655 
2654 
2655 
2656 
2657 
2656 
2659 
2660 
2661 
2662 
2665 
2664 
2665 



01 -FEB -84 17:02 



SEQ 076 



CALLING ShQUENCE; 

JSR RS.REGSAV 

THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
THE CALLI^Ti ROUTINE. AT THE ENO OF TK CALLING ROUTINE. 
THE RTS P RETURNS CONTROL TO THIS ROUTINE TO RESTORE 
REGISTERS. 

THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES UHICH ARE 
CALLED VIA A JSR PC INSTRUCTION 



2666 


017760 




REGSAV: 




2667 


017760 


010446 


MOV 


R4.-CSP) 


2666 


017762 


010346 


MOV 


RS.-(SP) 


2669 


017764 


010246 


MOV 


R2,-CSP) 


2670 


017766 


010146 


MOV 


Rl.-(SP) 


2671 


017770 


010546 


MOV 


R5.-(SP) 


2672 


017772 


016605 000012 


MOV 


10.(SP).R5 


2673 


017776 


004736 


JSR 


PC.SCSP)* 


2674 


020000 


012601 


MOV 


(SP)*.R1 


2675 


020002 


012602 


MOV 


(SP)*.R2 


2676 


020004 


012603 


MOV 


(SP)».RS 


2677 


020006 


012604 


MOV 


(SP)*.R4 


2678 


020010 


012605 


nov 


- (SP)*.RS 


2679 


020012 


000207 


RTS 


PC 



2660 
2681 
2682 
2683 
2664 
2665 
2666 
2667 
2666 
2669 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2696 
2699 

2700 020014 

2701 020014 

2702 020020 
020020 
020022 
020024 
020026 
020030 



.SBTTL GETPAT - GET 8 BIT PATTERN FROM OPERATOR 

♦ 

ROUTINE TO REQUEST AN 6 BIT DATA PATTERN FROM THE OPERATOR 
INPUTS: 

NONE. 
OUTPUTS: 

RO OCTAL NUMBER FROM THE OPERATOR 

CALLING SEQUENCE: 

JSR PC. GETPAT 



104443 
000406 

020050' 

000022 

020052' 



GETPAT : 
It: 



SAVREG I SAVE THE GENERAL REGISTERS 

GMANIO DATASC.PATOAT. 0.377. 0.377. NO 

TRAP CIGMAN 

BR 100001 

.WORD PATDAT 

.WORD TICOOE 

.WORD DATASC 



M6 



TSVS GLOBAL AREAS MACRO Ml 113 Ol-FEB-dA 17:02 
GETPAT GET 8 BIT PATTERN FROM OPERATOR 



SEQ 077 



2703 

2704 
2705 
2706 
2707 
2708 
2709 
2710 
2711 
2712 
2713 
2714 
2715 
2716 
2717 
2718 
2719 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 



020032 
020034 
020036 
020040 
020040 
020040 
020042 
020046 



020050 
020052 



2739 
2740 



020076 
020076 
020102 
020104 
020106 
020110 
020112 
020112 
020114 
020120 
020124 
020126 
020130 
020134 
020136 
020136 
020140 
020142 
020144 
020146 
020150 
020152 
020154 



000377 
000000 
000377 



103367 

013700 020050' 
000207 



000000 
105 



100001 i 



t ♦ 



.WORD 
.UORO 
.WORD 



377 

TtLOLin 
TIMILIM 



BNCOMPLETE II 
BCC II 
nOV PATOAT.RO 
RTS PC 



i LOCAL DATA AREA 

i - 



116 



124 



PATOAT : 
OATASCi 



.UORO 
.ASCIZ 
.EVEN 



I RETRY IF ERROR 

tOATA PATTERN FROM OPERATOR 
•RETURN TO CALLER 



I TEMPORARY STORAGE FOR DATA 



'ENTER DATA PATTERN' 
.SBTTL GETSEL - ISSUE MENU MO GET OPERATOR RESPONSE 



ROUTINE TO ISSUE A MENU AND GET 
THE OPERATOR'S RESPONSE. 



INPUTS: 

RO 
Rl 

OUTPUTS: 
RO 



AOORESS OF ASCIZ STRING OF MENU 
MAXIMUM ALLOUABLE OPERATOR RESPONSE 



NUMBER OP THE OPERATOR'S SELECTION 



GETSEL: 



010002 
010203 
005713 
001412 

012346 

012746 020262' 
012746 000002 
010600 
104417 

062706 000006 
000764 

104443 

000406 

020316' 

000042 

020267' 

177777 

000000 

177777 



II: 
21: 



31: 



SAVREG 

MOV 

MOV 

TST 

BEQ 

PRINTF 

MOV 

MOV 

MOV 

MOV 

TRAP 

AOO 

BR 

GMANIO 

TRAP 

BR 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.UORO 



R0.R2 
R2.R3 
CR3) 
31 

•SELASC.CRS)* 
(R3)».-(SP) 
•SELASC.-CSP) 
♦2,-(SP) 
SP.RO 
CIPNTF 
«6.SP 
21 

MENASC.MENRES.O. -1.0. -l.NO 

CIGMAN 

100011 

MENRES 

TICOOE 

MENASC 

-1 

TILOLIM 
TIHILIM 



(SAVE GENERAL REGISTERS 
I SAVE THE MENU AOORESS 
I START OF MENU STRING 
(END OF ASCII ? 

t BRANCH IF ALL LINES DISPLAYED 
(DISPLAY THE MENU 



N6 



TS.'^ • GLOBAL AREAS MACRO MlllS 01 -FEB -64 17:02 
GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 



SEQ 078 





020156 








100011: 








2741 


020156 










BNCOMPLETE It 


J RETRY IF ERROR 




020156 


103352 








BCC 


It 




2742 


020160 


013700 


020316' 






MOV 


MENRES. RO 


iGET THE OPERATOR'S REPLY 


2743 


020164 


020001 








CMP 


RO.Rl 


{COMPARE TO MAXIMUM ALLOWED 


2744 


020166 


101411 








BLOS 


St 


1 BRANCH IF OK 


2745 


020170 










PRINTF 


4MENERR 


1 DISPLAY ERROR MESSAGE 




020170 


012746 


020214 ' 






MOV 


«MENERR.-(SP 






020174 


012746 


000001 






MOV 


♦l.-(SP) 






020200 


010600 








MOV 


SP.RO 






020202 


104417 








TRAP 


CtPNTF 






020204 


062706 


000004 






AOO 


♦4.SP 




2746 


020210 


000755 








BR 


It 


1 RETRY 


2747 


020212 


000207 






51: 


RTS 


PC 


t RETURN TO CALLER 


2748 


020214 


045 


116 


045 


MENERR: 


.ASCIZ 


'#NKA *** Menu Selection Too Lara* ***' 


2749 


020262 


045 


116 


045 


SELASC: 


.ASCIZ 


•KNKT' 




2750 


C20267 


105 


156 


164 


MENASC: 


.ASCIZ 


•Enter Menu 


S«Uction: ' 


2751 












.EVEN 






2752 


020316 


000000 






MENRES: 




.UORO 0 





2753 
2754 
2755 
2756 
2757 
2756 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2773 
2774 
2775 



.SBTTL CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 

ROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 
INPUT: 



NONE « 



OUTPUT: 



CARRY 



SIDE EFFECTS: 



0 MANUAL INTERVENTION NOT ALLOWED 

1 MANUAL INTERVENTION IS OK 



A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
ALLOWED. 



2776 


020320 






CHKMAN:: 




2777 


020320 






SAVREG 




2778 


020324 






MANUAL 






020324 


104450 




TRAP 


CtMANI 


2779 


020326 






BCOMPLETE It 




020326 


103411 




BCS 


It 


2780 


020330 






PRINTF 


«NOMAN 




020330 


012746 


020354* 


MOV 


«NOMAN.-(SP} 




020334 


012746 


000001 


MOV 


♦l.-CSP) 




020340 


010600 




MOV 


SP.RO 




020342 


104417 




TRAP 


CtPNTF 




020344 


062706 


000004 


ADD 


«4.SP 


2781 


020350 


000241 




CLC 


2782 


020352 


000207 




It: RTS 


PC 


2783 













(SAVE THE REGISTERS 

tSEE IF MANUAL INTERVENTION OK 

t BRANCH IF ALLOWED 

t PRINT THE WARNING MESSAGE 



i CLEAR CARRY FOR ERROR 
{RETURN 



B7 



TSV3 GLOBAL AREAS MACRO M1113 01FEBS4 17:02 
CHKHAN - CHECK MANUAL INTERVENTION lEGALITY 



SEQ 079 



27S4 
2765 
2786 
2787 
2788 
2789 
2790 
2791 

2792 
2793 
2794 
2795 
2796 
2797 
2796 
2799 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2606 
2609 
2610 
2611 
2612 
2613 
2814 
2815 
2816 
2817 
2818 
2819 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2826 
2629 
2830 
2831 
2832 
2833 
2634 
2635 
2636 
2837 
2636 
2839 



020354 



020450 
020450 
020452 
020456 
020464 
020470 
020476 
020502 
020510 
020512 
020514 
020520 
020524 
020530 
020534 



020536 
020536 
020542 
020546 
020554 
020556 
020564 
020566 
020572 
020600 
020604 
020606 
020614 
020622 
020626 
020630 
020634 
020642 
020644 
020650 
020654 
020656 
020662 

020664 
020670 



045 



104431 

010037 
062737 
011037 
162737 
013702 
162737 
005302 
001373 
013700 
063700 
162700 
010037 
000207 



116 



045 NOMAN: 



.ASCIZ 
.•van 



'tfNtfA *** Manual Intarvantien not Allottad • Taat Atoertad ***' 



.SBTTL ENVIRN 



SETUP FREE DIAGNOSTIC SPACE 



I 
I 

ENVIRN: 



SUBROUTINE TO SET-UP V.IIGUS ENVIRONMENTAL PARAMETERS. 



003124* 

000002 

003126* 

000004 

002012* 

000007 



003124* 
003126' 
000002 
003130' 



003124* 
003126* 
003126* 101 t 



MEMORY 

TRAP 

MOV 

ADD 

MOV 

SUB 

MGV 

SUB 

DEC 



40t: 



MOV 
AOO 
SUB 
MOV 
RTS 



RO 

CIMEM 

RO.FREE 

•2.FREE 

(R0).FRESI2 

•4.FRESI2 

LIUNIT.R2 

•7.FRESIZ 

R2 

101 

FREE.RO 

FRESI2.ro 

•2.fK> 

RO.FREEHI 

PC 



GET 1ST FREE ADDRESS... 

...AND UORD COUNT. 

GET NUMBER OF UNITS 

TAKE AUAY 7 WORDS PER UNIT 



iGET FIRST FREE ADDRESS 

iPDINT TO LAST FREE ADDRESS 

iBACKUP 1 UORD 

I STORE LAST FREE ADDRESS 

iRETURN 



.SBTTL KTINIT 

!rOUTINE to INIT KT-11 
t 

I- 

KTINIT: 



SETUP KTll MEMORY MANAGEMENT REGISTERS 



00^037 


0CS132' 








KTFLG 


1 INIT >26K MEMORY FLAG 


005037 


003134* 






CLR 


KTENABLE 


t INIT TEST >26K FLAG 


023727 


002120' 


001577 




CMP 


LIHIME.«1577 


t GOT ENOUGH MEMORY (>26K)? 


101453 








BLOS 


9t 


1 NO. 


023727 


002120' 


001777 




CMP 


LIMIME.#1777 


1 GOT ENOUGH MEMORY (>32K)? 


101447 








BLOS 


91 


1 NO. 


013700 


000004 






MOV 


MERRVEC.RO 


1 SAVE OLD ERR VEC PTR. 


012737 


020664' 


000004 




MOV 


•2I.84ERRVEC 


1 SET ERR VEC PTR. 


005737 


177572 






TST 


a*SRO 


1 GOT KTll? 


000240 








NOP 




1 (TRAP IF NO). 


013737 


002120' 


003132' 




MOV 


LIHIME. KTFLG 


1 YES. SET KT FLAG. 


042737 


000177 


00S1S2* 




BIC 


♦177,KTFLG 




010037 


000004 






MOV 


R0.84ERRVEC 


1 RESTORE OLD ERR VEC PTR. 


005000 








CLR 


RO 


1 RO • AR DATA. 


012701 


172340 






MOV 


•KIPARO.Rl 


1 Rl - KI REGS PTR. 


012761 


077406 


177740 


11: 


MOV 


*77406.-40(Rl) 


1 SET DESCRIPTOR REG. 


010021 








MOV 


R0,(R1)» 


1 SET KIPAR REG. 


062700 


000200 






ADC 


•200. RO 


1 BUMP AR DATA BY **4K". 


020027 


002000 






CMP 


R0.«2000 


I AT "I/O"? 


001367 








BNE 


It 


1 NO 


012741 


177600 






MOV 


•177600. -(Rl) 


1 YES. SET KTPAR7 FOR I/O. 


0CO410 








BR 


91 




0127ie 


020700' 




21: 


MOV 


•61. (SP) 


1 SET OP RETURN 


000002 








RTI 


1 RTI TO NEXT LOCATION 



mill '^'^j'^ni fiE^'%smkH9'pms^^k"-^^ 



C7 



SCO 080 



2840 
2841 
2842 

284S 
2844 
2845 
2846 
2847 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2855 
2856 
2857 
2858 
2859 
2860 
2861 
2862 
2863 
2864 
2865 
2866 
2867 
2868 
2869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2880 
2881 
2882 
2884 
2886 
2887 
2888 
2889 
2890 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 



020672 012716 020726' 
020676 000002 

020700 010037 000004 



020704 
020704 
020710 
020716 
02072« 
020726 
020732 



020734 

020734 
020740 
020742 
0207S0 
020756 
020764 
020772 
020776 
021002 



021004 

021010 
021012 
021014 
021016 



021020 
021022 
021024 



013700 000004 

012737 020672' 000004 

042737 000001 170200 
000240 

010037 000004 
000207 



31: 

61: 
9): 

101: 



MOV 
RTI 

MOV 



nov 

NOV 
BIC 
NOP 

nov 

RTS 



•101. (SP) 



RO.B«ERRVEC 



04ERRVEC.ro 
•3I.MERRVEC 

«eiTo.s«rt«o 

RO.04ERRVEC 
PC 



I SET ue RETURN 

I RTI TO NEXT LOCATION 

I RESTORE OLD ERR VEC PTR. 



I SAVE OLD ERR VEC PTR. 

I SET ERR VEC PTR. 

I BE SURE UNXBUS HAP IS OFF 

I RESET VECTOR BACK TO ERROR POINTER 



005737 
001020 
012737 
012737 
OIP737 
012737 
012704 
004737 
000207 



000000 
000000 

ooocoo 

000000 



000000 
000000 
000000 



SUBROUTINE TO SET EXTENDED FEATURES SUITCH 

R«quir>M that SOFINIT and URTCHR hmtm b—n dona pravloua to call. 



INPUTS: 

R5 

OUTPUTS: 

Tha Extandad Faaturaa Switch ia aat. 



CURRENT UNIT NUMBER 



INVERT:: 



002226' 

100206 021010* 
021020' 021012* 
000006 021016* 
100010 021020' 
021010* 
010472' 



II: 



CHDPKTji 



TST CXTTEA 

8NE If 

NOV •100206.CMDPKT 

nov «WSH»C.D«PKT*2 

NOV •6.00PKT»6 

NOV #100010.WSnBK 

nov •cnDPKT.R4 

JSR PC.URTCHR 

RTS PC 



COmAND PACKET. 

.BLKB 10-<.-TSV2e7> 

0 
0 
0 
0 



IS SUITCH SET? 

tES.EXIT STAGE RIGHT !(er tha na»t 

URT SUB -SYS HEH CHD 

NSC BUF AOOR 

BYTE COUNT 

INVERT THE SWITCH 

SET CNDPKT INTO R4 

00 IT 

RETURN 



ana outa t 



tlST WORD IS TS05 CQMNAND. 
t2ND UORO IS THE BUFFER LOU ADDRESS. 
iSRO UORO IS THE BUFFER HIGH ADDRESS. 
|4TH WORD IS THE BYTE /RECORD/FILE COUNT. 



UniTE SUB-SYSTEH NEHORY CHARACTERISTIC BLOCK. 



USMBK: 



0 
0 
0 

.EVEN 



:1ST UORO:: SEL 0 
(?N0 WORD:: SEL 2 
i3R0 WORD:: SEL 4 



D7 



SEQ oei 



ae99 

2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2906 
2909 
2910 
2911 
2912 
2915 
2914 
2915 
2916 
2917 

29ia 

2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 



2943 
2944 
2945 
2946 

2947 
2946 
2949 
2950 



SUBROUTINE TO CHECK UETHER OR NOT UE'LL TEST NXH 



II#>UTSi 
OUTPUTS: 

Th* NXHFLG Mt if m* can t««t. 

Th* NXMLO and NXNHI atfdrMM* ar* aatup. 











f^nCK : ; 


















SAVRcb 




I SAVE THE REGISTERS 


AO* ASO 


00o037 


AAV * <X t 

00313O 






CLR 


NXnFLG 


t CLEAR THE FLAG 


AO* AVX. 


AACAV7 

OO^Od f 


AAV* AA* 

00314U 






CLR 




1 CLEAR THE TEST /m)ORESS LO 


AO* AAO 


AACAV7 

OO^Od f 


AAV* AO i 

003142 






CLR 


NXnnI 


1 CLEAR THE TEST AOORESS HI 


AO* AAA 


AV07 V7 


a 7AAAA 

170000 


AAO* OA « 

002120 




BIT 


A* ^AAAA I Ak^TMC 

#1 70000 • L IHinC 


1 CHECK FOR nORE THAN 10 BITS INDICATED 
















|FRun THE SUPERVISOR 


AO* AKA 


AA* AlKA 

OOlOM/ 








8Nc 


a A A 

141 


AA VP MA A A Aw PV#* 

iBRa IF HAP BOX ETC. 


AO* AftX. 


005737 


AAV * A A fl 

003146 






TCT 


Tosa 
T29d 


W A AAA^ *^^AA V w AP A 

lis IT A PROCESSOR TYPE B? 


AO* ACO 


AA* AA7 

001407 








BCA 


a A 
11 




AO* AC^ 


A0V707 

023727 


AAO* OA* 

002120 


007777 




CnP 


L IHInC a 91111 


1 GREATER THAN 120K 


AO* A70 


* A»A A^ 

lOMOb 








Dl A 

dLu 


OA 

28 


NO 


AO* A7A 


00#737 


AO 4 OOOl 

021222 






JSR 


B/* UWMTST 

PC t NXflTST 


1 SETUP T« ADDRESS 


AO* * AA 

021100 


000427 








BB 

BR 


a V A 

131 


tSET T^C FLAG AND EXIT 


AO* * AO 

021 102 


005737 


AAV* A A • 

005144 




a A ^ 

19: 


TST 


T23A 


W A tfMUM*^^«*AA «wA^ A 

lis IT A PROCESSOR TYPE A? 


021106 


001413 








■ftp A 
BEO 


41 


iNO 


AO * * * A 

021110 


023727 


002120' 


005777 




CnP 


LIHInEtV5777 


{GREATER THAN 96K 


AO* * * A 

021116 


a Aa A'^^ 

101027 








BHI 


14$ 


|YESa2SA/2S8 UITH 128K HEHQRY 








W J f f f 




PHP 


L£HTHF #3777 

L vrlAnC a V J www 


1 uvfcn 1 cfc 1 nMil uu 1 Lcdd i fwipi : 


021126 


103403 








BLO 


41 


iNO. CHECK 24K 


021130 


004737 


021222' 






JSR 


PC.NXHTST 


1 SETUP T»C ADDRESS 


021134 


000411 








BR 


13t 


iSET T»C FLAG AND EXIT 


021136 


023727 


002120' 


001577 


4$: 


CMP 


LIHIHE.A1S77 


•GREATER THAN 24K BUT LESS THAN 64K? 


021144 


103414 








BLO 


14 1 


iNO. TELL THEN AND EXIT UlTH FLAG CLEAR 


021146 


004737 


021222' 






JSR 


PC.NXMTST 


i SETUP T« ADDRESS 


021152 


062737 


000077 


003142' 




ADD 


•77. NXNHI 


iFOOL THE 11/02 £ 11/03 


021160 


032737 


177774 


003142' 


lS«t 


BIT 


#177774.NXNHI 


lANY NGRE THAN 16 BITS SET? 


021166 


001014 








BNE 


15t 


iBR. IF NORE THAN 16 BITS SET 


021170 


005237 


00S1S6' 






INC 


NXMFLG 


iSET THE FLAG 


021174 


000411 








BR 


151 


lEXIT 


021176 


000410 






14* : 


BR 


15t 


iNOP FOR PRINTOUT 


021200 










PRINTF 


4N0NEN 




021200 


012746 


005454' 






nov 


«NONEN.-(SP) 


021204 


012746 


000001 






NOV 


#1. (SP) 




021210 


010600 








nov 


SP.RO 




021212 


104417 








TRAP 


CIPNTF 




021214 


062706 


000004 






ADO 


#4,SP 




021220 


000207 






151: 


RTS 


PC 


iRETURN 



SUBROUTINE TO SETUP THE NXH ADDRESS FOR TESTING 
0UTPUTS:NXNL0. NXNHI i SETUP UITH NXN ADDRESS 



E7 



TSV5 - GLOBAL AREAS MACRO MlllS Ol-FEB-64 17:02 
KTINIT - SETUP KTll iCnORY HANAGEMENT REGISTERS 



;?951 
2952 
295S 
2954 
2955 
2956 
2957 
2956 
2959 
2960 
2961 
2962 
296S 
2964 
2965 
2966 
2967 
2966 
2969 
2970 
2971 



021222 
021226 
0212S2 
0212S6 



021254 



021S04 
021S10 
021314 



021316 



013701 
062701 
042701 
010102 
000006 



010137 
000012 



042702 
010237 
000207 



002120* 

000200 

000177 



003140' 



177700 
003142' 



NXHTST: NOV 


LIHIME.Rl 


ADD 


#200. Rl 


SIC 


♦177. Rl 


MOV 


R1.R2 


.REPT 


6 


ASL 


Rl 


.ENOR 




MOV 


Rl.NXMLO 


.REPT 


10. 


ASR 


R2 


.ENOR 




SIC 


♦177700.R2 


NOV 


R2.NXnHI 


RTS 


PC 



SEQ 062 



iCET TOP OF MEMORT 

I MAKE IT I/O BLOCK OR OTHER NXM 

iRESAVE RESULTS 

I PUT IN PLACE FOR XFER 

tSAVE TEST ADDRESS LOU 

I PUT IN PLACE FOR XFER 

lOON'T UANT ILA! 

I SAVE TEST ADDRESS HIGH 

.RETURN 



ENDMOO 



F7 



TSV4 HISCELLANEOUS SECTIONS MACRO Ml LIS gi-FEB-S4 17:03 
TINir SETUP KTll MEHORY MANAGEMENT REGISTERS 



SEQ OSS 



6 

7 

6 02ISI6 
021316 

9 
IS 
I* 

17 021316 
021316 

18 021316 

19 021526 
20 

21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 

34 021326 
021326 

35 021326 

36 021332 

37 021336 

38 021344 

39 0213S0 

40 021354 

41 021360 
021360 
021364 

42 021366 
021366 

43 021370 

44 021376 

45 021400 

46 021404 

47 021406 

48 021412 

49 021414 

50 021420 

51 021422 

52 021430 

53 021432 
021452 
021434 

54 021436 
021436 
021442 

55 021444 
021444 

56 021446 



TSV4: 



.TITLE TSV4 - MISCELLANEOUS SECTIONS 
BGNMOD TSV'4 



.SBTTL PROTECTION TABLE 
BGNPROT 

LIPROT:: 

177777 177777 177777 .UORO -1. -1. -I, -I 

ENDPROT 

.SBTTL INITIALIZE SECTION 



I NO 0EV7CE PROTECTION HEQUI^EO. 



005037 
005037 
012737 
005037 
005057 
005037 

012700 
104447 

103023 
023737 
103070 
005737 
100472 
013701 
006301 
005761 
001516 
032761 
001060 

104452 
000416 

012700 
104447 

105052 



I THE INITIALIZE SECTION CONTAINS THE COOING THAT IS PERFORMED 
tMT THE BEGIfMING OF EACH PASS. 

!lF -START" OR "RESTART". SET QUICK-PASS FLAG ANO BUS-INIT. 

tIF "CONTINUE". NOTHING IS REQUIRED. 

t 

I -- 

{insert TEMPORARY JUMP TO OOT 



I- 



002226' 
003136' 
006172' 
005154' 
005154* 
002502* 

000056 



002202' 
005112' 
002202' 
005176' 
040000 



000055 



L«INIT:: 
401: 



002200' 



EXTFEA 
NXMFLG 

•EPRTl.EPRTSU 

SIFLAG 

KTENABLE 

RAMSIZ 

«EF. CONTINUE 

«EF. CONTINUE.ro 

CtREFG 



002012' 



005176' 



II: 



BGNINIT 
'CLR 

aR 

MOV 
CLR 
CLR 

aR 

READEF 
NOV 
TRAP 

BNCOHPLETE 1« 

8CC II 

CMP UNITN.LIUNIT 

BHIS 41 

TST OUFLG 

BMI NXTU 

HOV UNITN.Rl 

ASL Rl 

TST ERTABL(Rl) 

BEQ SETU 

BIT «eiT14.ERTABL(Rl) 

BNE NXTU 

EXIT INIT 

TRAP CIEXIT 

.UORD L10050-. 

READEF fEF.NEW 

MOV tEF.NEU.RO 

TRAP CIREFG 

BNCOHPLETE NXTU 

BCC NXTU 

READEF tEF. START 



tSET UP PRIMARY MESSAGE FOR REPLACEMENT 

I CLEAR "SOFT INIT" FLAG 

t CLEAR TEST ABOVE 28K FLAG 

t CLEAR RAM SIZE FQP RAMERR ROUTINE 



tUNIT IN RANGE? 
tBR IF NO. 
•DROPPED UNIT? 
tBR IF YES 



{DROPPED? 

tOO NOTHING IF "CONTINUE' 



{TAKE NEXT UNIT IF NOT NEW PASS. 



G7 



TSV4 MISCELLANEOUS SECTIONS 
INiriALiZE SECTION 



HACRO Mills 01 -FEB -84 17:02 



021446 


012700 


000040 






MOV 


«EF. START. RO 


02145? 


104447 








TRAP 


CIREFG 


57 021454 










eCOMPLETe 21 


021454 


103404 








ecs 


21 


S8 021456 










READEF 


«EF. REST ART 


021456 


012700 


000037 






nov 


«EF. RESTART.ro 


021462 


lt>4447 








TRAP 


CIREFG 


59 021464 










BNCOMPLETE 311 


021464 


103031 








BCC 


311 


60 021466 








21: 






61 021466 










BRESET 




021466 


104433 








TRAP 


CtRESET 


62 021470 


005037 


002214* 






CLR 


TSTCNT 


63 021474 


005037 


002222* 






CLR 


FATFLG 


64 021500 


005037 


003144* 








T9X4 


65 021504 


005037 


003146' 






CLR 


T23B 


66 








t 


nov 


•340. -(SP) 


67 








1 


nov 


•201. -(SP) 


66 








1 


JMP 


O.OOT 


69 021510 


005037 


003400' 






CLR 


SKIPT 


70 021514 








201: 






71 021514 


012737 


177777 


002204* 




nov 


#-l.QVP 












JSR 


PC.ENVIRN 


73 021526 


004737 


020536' 






JSR 


PC.KTINIT 


74 021532 


012700 


003176* 






nov 


•ERTABL.RO 


75 021536 


005020 






301 1 


CLR 


(RO)* 


76 021540 


020027 


003376' 






CMP 


R0.4ERTABE 


77 021544 


103774 








BLO 


30t 


78 021546 


000404 








BR 


4t 


79 021550 


005037 


002204' 




311: 


CLR 


QVP 


80 021SS4 
81 


000137 


021624' 






jnp 


PASRPT 


82 021560 








4t: 






83 021560 


012737 


177777 


002202' 


NEUPAS; 


nov 


•-1.UNITN 


84 021566 


005037 


002220' 






CLR 


OEVCNT 


85 021572 








NXTUt 


BREAK 




021572 


104422 








TRAP 


CIBRK 


86 021574 


005237 


002202* 






INC 


UNITN 


87 021600 


023737 


002202' 


002012* 




cnp 


UNITN.LIUNIT 


88 021606 


103423 








BLO 


SETU 


89 021610 


012737 


177777 


003112' 




MOV 


••l.OUFLG 


90 021616 


000401 








BR 


lit 


91 021620 










ooaN 




021620 


104444 








TRAP 


CtOCLN 


92 021622 


000240 






lit: 


NOP 


93 021624 








PASRPT: 






94 021624 


023727 


002012' 


000001 




CMP 


LIUNIT.«1 


95 021632 


101752 








BLOS 


NEUPAS 


96 021634 


005737 


002220' 






TST 


OEVCNT 


97 021640 


001747 








BEQ 


NEUPAS 


98 021642 










RFLAGS 


RO 


021642 


104421 








TRAP 


CIRFLA 


99 021644 


032700 


000100 






BIT 


•ISR.RO 


100 021650 


001343 








BNE 


NEUPAS 


101 












102 021652 










DORPT 




021652 


104424 








TRAP 


CIDRPT 



1 1ST PASS. B'JS-INIT... 
I BUS RESET. 

I NUMBER OF TESTS RUN IN PASS 
I CLEAR FATAL ERROR COUNT 
I CLEAR PROCSSOR TYPE A FLAG 
I CLEAR PROCSSOR TYPE B FLAG 

{RETURN TO DEBUGGER 
iiSKNTER THE DEBUGGER 
I CLEAR THE SUBTEST "SKIPPER" 

{...QUICK VERIFY... 

(SET ENVIRa»«CNT. 

(INITIALIZE KT nEHORY NANAGEHENT 

(CLEAR THE ERROR TABLE 



(GO REPORT THE STATUS 

.INIT UNIT NUMBER... 

: CLEAR COUNT OF DEVICES RU»MING 

(...AND SET NEXT UNIT NUMBER. 



(ABORT. NO nORE UNITS. 



(HOW MANY UNITS SELECTED? 
(BR IF ONLf 1 
(ARE ANY STILL RUM4IN6? 
(BR IF NO 



(SHOULD UE PRINT STATISTICS 
(BR IF NO 



TSV4 • MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 



MACRO MllIS 01 -FEB -84 17:02 



SEQ 085 



103 021654 

104 021656 
105 

106 021656 
021656 
021662 

107 021664 
021664 

108 021666 

109 021672 

110 021676 

111 021700 
112 

lis 021704 
114 

115 

116 021706 

117 021712 

118 021716 
119 

120 021722 

121 

122 

123 

124 

125 

126 

127 

126 021722 

129 021726 

130 021730 

131 021736 

132 021742 

133 021750 

134 021752 
021752 

135 021754 

136 021760 

137 021762 
021762 
021766 
021772 
021776 
022000 
022002 

138 022006 

139 022006 

140 022012 

141 022016 

142 022020 

143 022024 

144 022030 

145 022032 

146 022036 
1.47 022044 
146 

149 



000741 



013700 
104442 

103342 
005057 
005237 
012001 
010137 

012001 



010137 
012721 
013721 



013701 
006301 
052761 
005037 
023727 
101416 

104421 

032700 
001412 

013746 
012746 
012746 
010600 
104417 
062706 

005037 
013701 
010102 
062702 
004737 
103005 
010137 
012737 



002202' 



003112' 
002220* 

002206' 



002210' 
016026' 
002212' 



101: 
SETU: 



BR 



NEWPAS 



GPHARD UNITN.RO 

MOV UNITN.RO 

TRAP CtGPHRD 
BNCOMPLETE NXTU 

BCC NXTU 

CLR DUFLG 

INC OEVCNT 

MOV (R0)*.R1 

MOV Rl.CSRAODR 



II: 

t 

I 



MOV 
I MOV 
I MOV 
MOV 
MOV 
MOV 



TST 
9EQ 



(R0)».R1 

(R0).R2 

R2.IPRI 

Rl.IVEC 

•INTR.(R1)« 

IPRI.(Rl)* 



QVP 
SI 



I GET UNIT N P- TABLE POINTER. 

I BR IF UNIT NOT AVAILABLE. 

I CLEAR "DROPPED" FLAG. 

iGET 1ST REGISTER ADDRESS. 

•ADDRESS OF REGISTERS OF UNIT UNDER TEST 

{GET VECTOR ADDRESS. 

iGET INTERRUPT PRIORITY 

I SET INTERRUPT PRIORITY. 

I SET INTERRUPT VECTOR POINTER... 

I . . .VECTOR. . . 

t...ANO PRIORITY. 



I 1ST PASS ?7 

iNO. SKIP THE PASS 1 STUFF. 



tlST PASS. CHECK THAT DEVICE ADDRESSES ARE VALID. AND 
tTHAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 



002202' 

100000 003176' 
005604' 

002012' 000001 



001000 



002202' 
022054' 
000002 



000006 

003114' 
002206' 

000002 
016206' 

003114' 

177777 003112' 



101 1 



21 i 



MOV 


UNITN.Rl 


ASL 


Rl 


BIS 


•BITIS.ERTABLCRI) 


a.R 


EXTA 


CMP 


LIUNIT.n 


BLOS 


101 


RFLAGS 


RO 


TRAP 


CIRFLA 


BIT 


•PNT.RO 


BEQ 


101 


PRINTF 


•PUNIT.UNITN 


MOV 


UNITN. -CSP) 


MOV 


#PUNIT.-(SP) 


MOV 


•2. -CSP) 


MOV 


SP.RO 


TRAP 


CIPNTF 


ADO 


«6.SP 


CLR 


NOOEV 


MOV 


CSRADOR.Rl 


MOV 


R1.R2 


ADD 


•TSSR.R2 


JSR 


PC.XNXM 


BCC 


21 


MOV 


Rl.NCDEV 


MOV 


•-1. DUFLG 



i&AY DEVICE RUNNING 
I CLEAR ERROR EXTENSION FLAG. 
tARE UE TESTING MULTIPLE UNITS? 
iBR IF NO. 

iYES GET OPERATOR FLAGS. 

I SHOULD UE PRINT UNIT #? 
iBR IF NOT. 
{PRINT THE UNIT • 



•ADDRESS OF FIRST REGISTER 

•START OF REGISTERS 

•ADDRESS OF TSSR REGISTER 

•TEST BOTH CONTROLLER REGISTERS.. 

•...AND BR IF ALL OK. 

•FLAG DEVICE AS NON-EXISTENT 

•DROP THIS UNIT. 



•FINALLY. SET CPU PRIORITY AND WE'RE DONE. 
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TSV4 ■ HISCELLAMEOUS SECTIONS 
INITIALIZE SECTION 



HACRO milS Ol-FEB-84 17:02 



SEO 086 



150 

151 022044 
022044 

022050 

152 022052 
022052 
022052 

155 

154 022054 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 022122 
022122 

165 022122 

166 022124 

167 022126 

168 022134 

169 022142 
022142 
022144 
022150 
022154 
022156 
022160 

170 022164 
022164 
022166 

171 022170 
172 

173 

174 022216 
022216 
022216 

175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 

186 022220 
022220 

187 022220 

188 022226 

189 022230 

190 022232 



012700 
104441 



104411 
045 



000000 



116 



010001 
006301 
052761 
042761 

010046 
012746 
012746 
010600 
104417 
062706 

000167 
000026 
045 



104452 



100000 
040000 



022170' 
000002 



000006 



003176' 
003176' 



116 



012737 
010001 
006301 
052761 



177777 003112' 



140000 003176* 



i 

51; 



L 10030: 



045 PUNIT: 



I ♦ ♦ 



SETPRI «PRIOO 
nOV •PRIOO.RO 
TRAP CtSPRI 
ENOINIT 



•ENABLE INTERRUPTS. 



TRAP 



CtlNIT 



.ASCIZ 
.EVEN 



k*** TESTING UNIT «02«A 
.SBTTL ADD AND DROP UNITS SECTIONS 



I THE AOO-UNIT SECTION CONTAINS THE COOING THAT CAUSES A DEVICE 

t TO 8E CA) AOOEO TO THE TEST LIST FOR THE FIRST TINE, 
t OR CB) RE -INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 
I 



I tAU:: 



045 II: 



LlOOSl: 



BGNAU 

NOV 
ASL 
BIS 
BIC 
PRINTF 

nov 
nov 

HOV 

HOV 

TRAP 

ADD 

EXIT 

.WORD 

.UORO 

.ASCIZ 

.EVEN 

ENDAU 

TRAP 



RO.Rl 
Rl 

«100000.ERTABLCR1) 

•40000. ERTABLCRl) 

•It.RO 

RO.-CSP) 

#1I,-CSP) 

#2.-CSP) 

SP.RO 

CtPNTF 

•6.SP 

AU 

JtJMP 
LlOOSl 



I GET UNIT TO BE AOOEO CRO) 

I HAKE IT A UORO INDEX 

I SET THE "ACTIVE" BIT 

I CLEAR THE "DROPPED" BIT 



2-. 

UNIT «DM ADDED/ 



t UNUSED. 



CIAU 



THE DROP -UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE RENOVEO FROH THE TEST LIST. 

SUPVSR DOES THE "DROPPING". THIS IS JUST TO TELL THE MAN. 
"DROPPED" UNITS ARE RE-SELECTED ON OPERATOR "STA" OR "ADO" 
COHMAND. OTHERWISE REMAIN INACTIVE. THE "DISPLAY" COMMAND 
WILL PRINT ALL DROPPED UNITS. AND THE P-TA6LES OF THOSE 
UHICH ARE STILL ACTIVE. 

UPON ENTRY. RO CONTAINS THE UNIT TO BE DROPPED. 



LtOUt: 



BGNDU 

MOV 
HOV 
ASL 
BIS 



•-1.DUFLG 

RO.Rl 

Rl 

#140000.ERTABL(R1) 



I SAY DROPPED 



J7 
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SEQ 007 



191 022240 

192 022246 
022246 
022250 
022254 
022260 
022262 
022264 

193 022270 
022270 
022272 

194 022274 
195 

196 022324 
022324 
022324 

197 
19a 
199 

200 022326 
022326 

201 022326 

202 022332 

203 022336 

204 022342 

205 022344 
022344 
022350 
022352 
022356 
022360 
022364 
022366 
022372 

206 022374 

207 022376 

208 022400 

209 022404 

210 022404 
022404 
022404 

211 
212 
213 
214 
215 
216 
217 
218 

219 022406 
022406 

220 022406 

221 022412 

222 022416 
223 

224 

225 022420 



000240 000240 000240 
010046 

012746 022274* 
012746 000002 
010600 
104417 

062706 000006 



240.240.240 
PRINTF tlLRO 



I 777777777 



000167 
000030 

045 116 



104453 



045 II: 



L10032: 



MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
EXIT 
.WORD 
.WORD 
.ASCIZ 
.EVEN 
ENODU 

TRAP 



RO.-(SP) 
♦If .-(SP) 
♦2,-(SP) 
SP.RO 
CIPNTF 
•6.SP 
OU 

JIJMP 
L10032-2-. 

/itNM UNIT tfO«A DROPPED/ 



oou 



013705 
012703 
004737 
103420 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005303 
001357 
004737 



104461 



002206' 

000550 

016060' 



000372 
002116' 
177772 
177756 

017014' 



TauTO-DROP CODE SECTION, 
i - - 



LIAUTO: 
10<; 



BGNAUTO 






MOV 


CSRA00R.R5 


t POINT TO DEVICE REGISTER 


MOV 


#360. .R3 


{ENOUGH riME FOR 2400' REEL 


JSR 


PC.UAITF 


lUAIT FOR SSR TO SET 


BCS 


201 


tLEAVE UHEN SSR IS SET 


DELAY 


250. 


tUAIT FOR .25 SECONDS 


MOV 


•250.. (PC)* 




.UORO 


0 




MOV 


LtOLY.CPC)* 




.UORO 


0 




DEC 


-6(PC) 




BNE 


.-4 




DEC 


-22(PC) 




BNE 


.-20 




DEC 


R3 


iBUMP COUNTER OOUN 


BNE 


10» 


{KEEP GOING 


JSR 


PC.CKOMP 


(TRY AND OAQP UNIT 


ENDAUTO 




t UNUSED. 


TRAP 


CtAUTO 





013705 002206' 
005737 005112' 
100405 



012765 000000 000002 



20t: 
LIOOSS: 

.S8TTL aEAN-UP AND REPORT CODING SECTIONS 

TthE CLEANUP CODING SECTION CONTAINS THE CODING THAT 

t EXECUTED AT THE END OF EACH PASS (OR SUB-PASS). 

I USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 

' BGNCLN 
LtCLEAN: : 

MOV 
TST 
BHI 



IS 



CSRADDR.RS 

DUFLG 

li 



NOV 



•O.TSSR(R^) 



I POINT TO DEVICE REGISTER 
l"DROPPED" FLAG IS SET ON... 
t . . .AND GROSS CONTROLLER FAULT. . . 
I... DON'T TRY TO XCT aEANUP CODE. 

iDO SOFT INIT 



I<7 



TSV4 - MISCELLANEOUS SECTIONS MACRO Ml 113 
CLEANUP AND REPORT COOING SECTIONS 



Ol-FEB-M 17:02 



SEQ 066 







f O f 




JSR 


PC.UAITF 




227 


022432 






1>: 






ccO 








2>: ENOCLN 
L 10034: 














TRAP 


CtaEAN 












» 














1 THE REPORT CWING SECTION CONTAINS THE 










» "PRINTS" CALLS THAT GENERATE 




















OPP4^ 






' BGNRPT 
LIRPT: : 














PRINTS 








022434 


012746 


022676* 

VCCW ■ w 


NOV 


dDFVSUM -f^Pl 






022440 


012746 


000001 

WVW A 


• TV w 


«1 -f^P) 






022444 


010600 




MOV 


$P RO 






022446 


104416 




TRAP 








0224S0 


062706 


000004 


ADD 


•4 ^P 




235 


022454 


010246 




MOV 

' iv w 


R2 - ( ^P ) 

r^c » * J' / 






022456 


010346 




MOV 


R3 -f^P) 




237 


022460 


010446 




MOV 


R4 -(SP) 






022462 


012704 

VAC • 


003176' 


MOV 


#£RTABL R4 


i GET ^TART Of ERROR TARl E 


t w ^ 


022466 


005003 




TLR 


R3 


t CL^AR UMTT MUMBFR 


240 


022470 


011402 




It * MOV 

A V • ■ fV w 


rR4) R2 


1 HFT FROOP TARl F PMTRV f TFQT TT 
I WW 1 cmu^ 1 #M9Cw «n 1 n 1 c» i w9 i x i • 


241 


022472 


001467 






4i 

^ w 


t ZERO IF UNIT NOT RUN 


242 


022474 


100066 

A www 




BPL 

Wt fc» 


41 




243 


022476 


032 702 


040000 


WA ■ 


MIT14.R2 

WW A 1 A^ • F^C 




244 


022S02 


OOlOlS 

W AVA J 




RNE 


21 


t RR ir YF^ 

1 wW X' iw3 


245 


022504 


042702 


170000 

A • WW 


RTC 


#tC7777 R2 


• HFT FROOQ rOlflyT FTFl D 
1 Uw 1 wrinun ^VWV i r Xw^V 


246 


0225 lO 






PRTMT^ 


#Df WONL R3 R2 

wVt Wl^lfc* » OW t rlC 


1 PRTMT 




022S10 


01 OP4^ 




MOV 


02 • r V ) 






022512 


01034A 




MOW 


R3 •f^') 






022514 




VCC ' J J 


MOW 








022520 


O 12746 

VAC ' ^v 


000003 


MOV 

» Iw W 


#3 -r^) 






022524 


010600 

V AWW 




MOV 


SP RO 






022526 


X%^^~ Xv 




TRAP 








022530 


062706 


000010 


ADO 


#10 V 

w AV » 




247 


022534 


000446 




BR 


4$ 




248 


022536 




XwWW 


21* CMP 


R2. #160000 

r^C # w AW WW 


1 OTWw wWA > I^VI^ * W A A3 1 wrV 1 I 


249 


022542 


001012 






31 


1 RR IF NO 

1 W»^ X' w^w 


^50 


022544 






PRINTS 


#DEVNXR.R3 

www » r^^r^ f ^ 




022544 


010346 

V AV**^ V 




nov 


R3. -CSP) 






022546 


012746 

VAC • ~W 


023003* 

VC^^Ww 


MOV 


«OEVNXR,-(SP) 






022552 


012746 

VAC ■ 


000002 


MOV 


♦2. -CSP) 






022556 


010600 




MOV 


SP.RO 






022560 


104416 

AV • • Aw 




TRAP 


CIPNTS 






022562 


062706 

VWC • w 


000006 

WWWw 


ADO 


•6.SP 




251 


022566 


000431 

WV^W A 




BR 


4t 




252 


022570 


020227 

VCVCC ■ 


160001 

AVVW A 


3»: CMP 


R2. •160001 


1 WAS UNIT NOT READY AT STARTUP? 


253 


022574 


001012 




BNE 


30$ 


t BR IF NO. 


254 


0i>2576 






PRINTS 


«0EVNR0.R3 




022576 


010346 




MOV 


R3.-(SP) 






022600 


012746 


023065' 


MOV 


«OEVNRO.-(SP) 






022604 


012746 


000002 


MOV 


♦2. -CSP) 






022610 


010600 




MOV 


SP.RO 






022612 


104416 




TRAP 


CIPNTS 






022614 


062706 


000006 


ADD 


•6.SP 




255 


022620 


000414 




BR 


4» 





TSV4 - MISCELLANEOUS SECTIONS MACRO nillS Ol-FEB-aA 
CLEAN-UP AND REPORT COOING SECTIONS 



256 


022622 


042702 


170000 




301 : 


BIC 


257 


022626 
022626 
022630 


010246 
010346 








PRINTS 

MOV 

MOV 




022632 


012746 


023146' 






MOV 




022636 


012746 


000003 






MOV 




022642 


010600 








MOV 




022644 


104416 








TRAP 




022646 


062706 


000010 






ADO 


256 


022652 


062704 


000002 




41: 


ADD 


259 


022656 


005203 








INC 


260 


022660 


020427 


003376' 






CMP 


261 


022664 


103701 








BLO 


262 


022666 


012604 








MOV 


263 


022670 


012603 








MOV 


264 


022672 


012602 








MOV 


265 


022674 
022674 
022674 


104425 






L 10035: 


ENDRPT 
TRAP 


266 














d!0 ( 














268 


022676 


045 


116 


045 


OCVSUM: 


.ASCIZ 


269 


022733 


045 


101 


040 


OEVONL: 


.ASCIZ 


270 


023003 


045 


101 


040 


OEVNXR: 


.ASCIZ 


271 


023065 


045 


101 


040 


OEVNRO: 


.ASCIZ 


272 


023146 


045 


101 


040 


DEVDPO: 


.ASCIZ 


273 












.EVEN 


274 














275 


023216 










ENONOO 



276 
277 
278 



L7 

17:02 



SEQ 089 



♦tC7777,R2 

•0EVDR0.RS.R2 

R2.-(SP) 

R3,-(SP) 

•OEVDRO.-(SP) 

♦3.-(SP) 

SP.RO 

CIPNTS 

♦10. SP 

«2.R4 

R3 

R4.«ERTABE 
1< 

(SP)».R4 
CSP)*,R3 
(SP)».R2 

t UNUSED. 

ORFT 



/ifNtfAOEVICE STATUS SUMMARY :«N/ 

/«A UNIT «03«A ONLINE. ERRORS - «0«(N/ 

/«A UNIT K03«A DROPPED. NON-EXISTENT REGISTER«N/ 

/M UNIT M3«A DROPPED. NOT READY AT STARTUP^/ 

/«A UNIT «03itA DROPPED. ERRORS " «DtfN/ 



M7 



TSV5 HARDUARE TEST 
CLEAN UP AND REPORT 

1 

2 
o 

10 023216 
023216 

16 
24 
25 
26 
27 
26 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 

46 023216 
023216 

52 023216 

53 023222 

54 023226 

55 023234 

56 023234 
57 

58 023240 

59 023244 

60 023250 

61 023256 

62 023256 

63 023262 

64 023264 

65 023266 
023266 
023270 
023272 
023274 

66 

67 

68 023276 

69 023302 

70 023306 

71 023312 

72 023326 

73 023330 

74 023332 



MACRO «1113 
ODING SECTIONS 



01 FEB 84 17:02 



SEQ 090 



TSV5:: 



.TITLE TSV5 • HARDUARE TESTS 



BGNMOO TSV5 



.SBTTL TEST 1: INITIALIZE AFTER WRITE CHARACTERISTICS 



TEST DESCRIPTION i 



Thi« t««t v«rifi«« that a HardMara Initializ* conmand 
invekad aftar a Urita Character i at ica command s«ta up 
tha Command. Naooao* and Character i at ie imaga blocka 
in tha controller ram correctly. 



TEST STEPS: 



REPEAT FOR LOOPCNT 
BEGIN 

Do WRITE CHARACTERISTICS command. 

If the NBA bit in the TSSR regiater ia NOT-0 then Print Error. 
Write to TSSR reoieter to aoft initialize the controller 
If controller RAH 310-377 NOT-0 then Print Error 

END 



012700 023662' 
004737 016322' 
012737 000012 002216' 

004737 024136' 

012703 002764' 

012704 023620' 
012764 000010 000006 

004737 015604' 
103405 
010001 

104455 
000144 
003646' 
011644' 



005037 002222' 
010465 000000 
004737 016146' 

103407 
010001 



T13L00P: 



5>: 



BGNTST 

MOV 
JSR 

nov 

JSR 

nov 

HOV 

nov 

JSR 
BCS 
HOV 
ERROF 



♦TST13I0.ro 
PC.TSTSETUP 
•10. .LOOPCNT 

PC.T13REST 

•TSTBLK«10..R3 

•T13PACKrT.R4 

#0..PKBCNT(R4) 

PC.SOFINIT 

101 

RO.Rl 

ERRNO . SF lERR . SF IHSG 



iOo WRITE CHARACTERISTICS command. 

10$ : CLR FATFLG 

nov R4.TS06(R5) 
JSR PC.CHKTSSR 
FORCERROR 12 « 

BCS 15 » 
HOV RO.Rl 
NEXT. ERRNO 



Tl« • 

{ASCII HESSAGE TO IDENTIFY TEST 
I 00 INITIAL TEST SETUP 
jPERFORH 10 ITERATIONS 

I SET PACKET TO START-UP VALUES 

i START OF TEST DATA 

iGET THE ADDRESS OF COHMANO PACKET 

I START WITH niNIHUH ALLOWABLE VALUE 

tWRITE TO TSSR TO SOFT INITIALIZE 

iBR IF SOFT INIT OKAY 

{SAVE CONTENTS OF TSSR 

i DEVICE FATAL DURING INIT 

TRAP C«EROF 

.WORD 100 

.WORD SFIERR 

.WORD SFinSG 



I CLEAR FATAL ERROR FLAG 

I SET THE PACKET ADDRESS TO EXECUTE 

(WAIT FOR SSR TO SET 

(88DF0RCE ERROR IF FORCER* 1 
iBR IF CARRY SET (GOOD RETURN) 
(SAVE CONTENTS OF TSSR 



N7 
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SEQ 091 



75 023332 
023332 
023334 
023336 
023340 

76 023342 

77 023346 
023346 

78 023350 

79 023354 

60 023360 

61 023364 

62 023366 
63 

64 

65 023372 

66 023372 
87 023406 
66 023410 

89 023412 

90 023412 
023412 
023414 
023416 
023420 

91 023422 
023422 

92 
93 

94 023424 

95 023424 

96 023430 

97 023444 
96 023446 
99 023450 

100 023450 
023450 
023452 
023454 
023456 

101 
102 

103 023460 

104 023464 

105 023466 

106 023472 

107 023476 

108 023502 

109 023506 

110 023512 

111 023522 

112 023524 

113 023526 

114 023526 
023526 
023530 
023532 



104455 
000145 
024047' 
011656' 

005237 002222' 
104406 

016501 000002 
012702 000200 
032701 000100 
001402 

052702 000100 



020201 
001404 



121: 



15(: 



ERROr ERRNO.TISSSR.PKTSSR 



INC 

CKLOOP 

MOV 
MOV 
BIT 
BEQ 
BIS 



FATFLG 



TSSR(R5).R1 
«SSR.R2 
♦OFL.Rl 
251 

«0FL.R2 



104456 
000146 
023774' 
011656' 

104406 



004737 015604' 

103405 
010001 



104455 
000147 
003646' 
011644' 



ilf 
25»: 



27»: 



the NBA bit in the TSSR p«gi«t*p 

rORCERROR 27 t 

CMP R2.R1 
BEQ 30$ 
NEXT.ERRNO 

ERRHRD ERRN0.T13NBA,PKTSSR 



i DEVICE FATAL SSR TAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

I SET FATAL ERROR FLAG 
(LOOP ON ERROR, IF FLAG SET 

TRAP 

I GET THE CONTENTS OF TSSR 
•EXPECTED CONTENTS OF TSSR 
lis OFF-LINE BIT SET ? 
(BRANCH IF NOT OFF -LINE 
(SET OFF-LINE IN EXPECTED DATA 

is NOT-0 then Print Error. 

iS8D 

{DOES EXPECTED MATCH RECEIVED ? 
J OKAY IF MATCH 



CIERDF 
101 

T13SSR 
PKTSSR 



OCLPl 



30»: 



CKLOOP 



{NBA NOT ZERO 



(LOOP ON ERROR ? 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CtERHRD 
102 

T13NBA 
PKTSSR 

C9CLP1 



i Write to TSSR register to soft initialize the controller 
40»: 



42$: 



JSR PC.SOFINIT 
FORCERROR 42$ 
BCS 50$ 
MOV RO.Rl 
NEXT.ERRNO 

ERROF ERRNO.SFIERR.SFIMSG 



t WRITE TO TSSR TO SOFT INITIALIZE 

J BR IF SOFT INIT OKAY 
iSAVE CONTENTS OF TSSR 

{DEVICE FATAL DURING INIT 

TRAP C$ERDF 

.WORD 103 

.WORD SFIERR 

.WORD SFIMSG 



012704 
005002 
105065 
004737 
010465 
004737 
116501 

120102 
001406 



104455 
000150 
023735' 



000310 

000000 

016146' 

000000 

016146' 

000000 



I If controller RAM 310-377 NOT«0 then Pri 
50$: MOV «310.R4 : 

CLR R2 

CLRB TS0BCR5) 

JSR PC.CHKTSSR 
60$: MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

MOVB TSBA(R5).R1 

FORCERROR 62 $ . NOTSSR 

CMPB R1.R2 

BEQ 70$ 

NEXT.ERRNO 
62$: ERRDF ERRN0.T13MEM.RAMEXP 



nt Error 

START WITH LOC 310 

MEMORY EXPECTED SHOULD BE 000000 

SET MAINTENANCE MODE 

hAIT FOR SSR READY 

SELECT RAM ADDRESS 

WAIT FOR SSR READY 

READ LOC CONTENTS 

isao 

CHECK MEMORY FOR 000000 
BRANCH IF DATA OKAY 



{MEMORY NOT ZERO AFTER INIT. 

TRAP C$EROF 

.WORD 104 

.WORD T13MEM 



B8 
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TEST 1: INITIALIZE AFTER WRITE CHARACTERISTICS 



117 



025534 

115 025SS6 

116 02SS42 
023542 
023544 
023544 
023546 

118 

119 023550 

120 023552 

121 023556 
122 

123 

124 023560 

125 023564 

126 023566 

127 023572 
126 023576 

129 023600 

130 023604 

131 023604 
023604 
023606 

132 
133 
134 
135 
136 

136 023610 

140 023620 

141 023620 

142 025622 

145 025624 
144 025626 
145 

146 025650 

147 025650 
146 025652 

149 025634 

150 025656 
151 

152 023642 

153 

154 

155 

156 023662 

157 023735 
158 

159 025774 

160 024047 
161 

162 
163 
164 
165 
166 
167 



015540* 

005257 002222* 

104406 

104410 
000436 

005204 

020427 000400 
001347 



005737 002222' 
001402 

004737 017014* 

004737 016270' 
103002 

000137 023234' 



104432 

000376 



100004 
023630' 
000000 
000010 



025642* 

000000 

000016 

000000 000000 



111 
111 

127 
103 



156 
156 

122 
157 



701: 



821: 



INC FATFLG 
CKLOOP 

ESCAPE TST 



INC R4 

CMP R4.M00 

SNE 601 



TST 
BEQ 
JSR 
JSR 
BCC 
JMP 

EXIT 



FATFLG 
1601 

PC.CKOROP 
PC.TSTLOOP 
1651 
TISLOOP 

TST 



1601: 



1651: 



tLOCAL STORAGE FOR THIS TEST 
I - 

.BLKB 
TISPACKET: 

. Mowp 

.UORO 



lO-«.-TSV2t7> 

100004 
TISOATA 
0 

a. 



TISOATA: 



.WORD 



TISBTR 
0 

14. 
0.0 



TlSBFRt .8LKU 8. 

iLOCML TEXT fCSSAGES FOR TEST 



•SET THE FATAL ERROR FLAG 

TRAP 



SEO 092 



.yORO RAMEXP 



lEXIT ON FATAL ERROR 



TRAP 
.UORO 



CICLPl 

CIESCAPE 
L10056-. 



•LOOK AT NEXT RAM LOC. 

t AT TOP OF RAM AOORESS SPACE 

I BRANCH TILL ALL MEMORY TESTED 



I ANY FATAL ERRORS 7 
{BRANCH IF NOT 
I TRY TO DROP TI.C UNIT 
tOONE ALL ITERATIONS? 
I BR IF YES 

iLOOP UNTIL ITERATION COUNT DONE 



TRAP CIEXIT 
.UORO L 10056- 



iC O t t l AN D PACKET FOR TEST 

tURITE CHARACTERISTICS COmAND. WITH ACK 

lAOORESS OF CHARACTERISTICS BLOCK 

{STARTING VALUE OF BLOCK SIZE 

{CHARACTERISTICS DATA BLOCK 
tAOORESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 
{MESSAGE BUFFER 



151 
143 

111 
156 



TSTISID: 
TlSHEMt .ASCIZ 

.EVEN 
T15NBA: .ASCIZ 
TlSSSRt .ASCIZ 



.ASCIZ 'InitialiMtSon Aft«r WRITE CHARACTERISTICS' 
«lAeopr«ct RAN Data Aft*r In if 



WRITE CHARACTERISTICS Co—^d Not Accepted* 

Content* of TSSR Incorroet Aftor MRITE CKJ«ACTERIS TICS' 



ROUTINE TO RESTORE COMMAND PACKET TO START-UP (OFFAULT) VALUES 



C8 



SEQ 09S 



168 
169 

170 

171 0241S6 

172 024 136 

173 024142 

174 024146 

175 024 1S2 

176 024156 

177 024160 
170 024164 
179 024170 
laO 024172 

161 024176 

162 024200 

163 024202 

164 024204 
024204 
024204 

165 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 

196 024206 
024206 

201 024206 

202 024212 

203 024216 

204 024224 

205 024224 
024224 
024224 

206 024226 

207 024232 

208 024236 
024236 
024242 

209 024244 

210 024244 
024244 

211 024246 

212 024252 

216 024254 

217 024256 
024256 
024260 
024262 
024264 

218 024266 

219 024266 



.EVEN 
TlSRESTt 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
\M5021 
005011 
000207 



104401 



023620* 

100004 

02S6S0' 

000010 
023642 

000016 



SAVREG 

nov 
nov 

MOV 

an 

NOV 

nov 

CLR 

nov 
an 

RTS 
ENDTST 



#T1SPACKET.R1 

•100004. (RD* 

•TISDATA.CRD* 

(Rl)» 

««..(R1)* 

•TiStFR.CRD* 

CRD* 

•14.. CRD* 

CRD* 

(Rl) 

PC 



I SAVE THE REGISTERS 

I START OP THE PACKET 

lURXTE CHARACTERISTICS WITH ACK 

lAOORESS OF CHAR DATA BLOCK 

lEXTENOEO ADDRESS 

I SIZE OF DATA BLOCK IN BtTES 

I ADDRESS OF HESSAGE BUFFCR 

I LENGTH OF HESSAGE BUFFER 



iRETURN 



L 10036: 



TRAP 



CIETST 



.SBTTL TEST 2t BASIC IMITE SUBSTSTEH HEHORY COTtlANO 



I THIS TEST VERIFIES THAT THE yRXTE SUBSySTEH MEMORY COHHANO UITH A 
iBSELO SELECT CODE OF 0 (NO-OP) EXECUTES CORRECTLY. IT ALSO 
{VERIFIES THAT A URITE SUBSYSTEH HEHORY COHHANO WITH A NON-ZERO 
tHOOE FIELD IS REJECTED. THE TEST FURTHER VERIFIES HICROPROGRAH 
I COHHANO DECODING AND HANDLING SEQUENCES. 



012700 026021' 
004737 016322* 
012737 000024 002216' 



104402 

004737 026066' 
004737 026124' 

01270C 000000 
104441 



104404 

004737 015604' 

103405 

010001 

104455 
000311 
003646' 
011644' 

012704 025360* 



T14L00P: 



BGNTST 

nov 

JSR 

nov 

'bgnsub 



59 1 



101: 



JSR 
JSR 

SETPRI 



BGNSEG 

JSR 
BCS 

nov 

E''r»0F 



HOV 



•TST14I0.R0 
PC.TSTSETUP 
•20. .LOOPCNT 



PC.T14REST 

PC.T14RST 

•PRIOO 



PC.SOFINIT 

10* 

RO.Rl 

ERRNO . SF ICRR , SF IHSG 



•T14PK2.R4 



T2:: 

lASCII HESSAGE TG IDENTIFY TEST 
lOO INITIAL TEST SETUP 
iPERFORH 20 ITERATIONS 

t//////////// BEGIN SUBTEST //////////// 
T2.1: 

TRAP CtBSUB 
iSET PACKET TO INITIAL VALUES 
tSET PACKET TO INITIAL VALUES 
iLOUER PRIORITY TC ALLOW INTERRUPTS 

nov •PRIOO. RO 
TRAP OSPRI 

!>>>>>>>>>>>> BEGIN SEGHENT >>>>>>>*>>>> 

TRAP CIBSEG 

lOO SOFT INIT OF CONTROLLER 

iBR IF SOFT INIT - OK 

I SAVE CONTENTS OF TSSR 

•DEVICE FATAL ERROR DURING INIT 

TRAP CSERDF 
.UORO 201 
.WORD SFIERR 
.UORO SFIHSG 

t SUBROUTINE NEEDS PACKET ADDRESS 



D8 



TSV5 HAftDUARE 


TESTS 


MACRO n: 


itST di 


BASIC URITE sues TS TEH Mi 


220 


024272 


004737 


010472' 


221 


024276 


103405 






024300 


010001 




226 


024302 








024302 


104456 






024304 


000312 






024306 


005052' 






024310 


011644* 




227 


024312 








024312 


005037 


002222' 




024316 


005037 


002224' 


OVA 


024322 


012704 


024740' 


231 


024326 


010465 


000000 


232 


024332 


004737 


016146' 


253 


024336 


103407 




23# 


024340 


010001 




OVA 


024342 








024342 


104455 






024344 


000313 






024346 


025553' 






024350 


011656- 




237 


024352 


005237 


002222* 


2*U 


024356 








024356 


104406 






024360 








024360 


104410 






024362 


000074 




242 


024364 


005737 


002224* 


^#3 


024370 


001004 




«* # 


024372 








024372 


104456 






024374 


000314 






024376 


025643' 






024400 


011656' 






024402 


016501 


000002 




024406 


012702 


000200 


c^v 


024412 


032701 


000100 




024416 


001402 






024420 


052702 


000100 


C93 


024424 


020201 






024426 


001404 




c30 


024430 








024430 


104456 






024432 


000315 






024434 


025402' 






024436 


011656' 




07 


024440 








024440 


004737 


010724* 




024444 


103405 






024446 








024446 


104456 






024450 


000316 






024452 


004741' 






024454 


015320* 




266 


024456 








024456 








024456 


104405 





84 17:02 



JSR 
BCS 
HOV 

ERRHRO 



SEQ 094 



111: 



15«: 



22«: 



2St: 



30«: 
351: 



CLR 
CLR 
MOV 
MOV 
JSR 
BCS 
MOV 
ERROF 



PC.URTCHR 

111 

RO.Rl 

ERRNO . WR TMSG . SF IMSG 



FATFLG 

INTRECV 

•T14PACKET.R4 

R4.TS0e(R5) 

PC.CHKTSSR 

151 

RO.Rl 

ERRNO. T14SSR.PKTSSR 



FATFLG 
ESCAPE SEG 



INC 

CKLOGP 



TST INTRECV 
BNE 22t 

ERRHRO EfmN0.T14NINT.PKTSSR 



NOV 
NOV 
BIT 
BEQ 
BIS 
CMP 

BEO^ 



JSR 
BCS 
ERRHRO 



ENDSEG 



TSSR(R5).R1 
«SSR.R2 
•OFL.Rl 
251 

«0FL.R2 

R2.R1 

SOI 

ERRNO. T14NBA.PKTSSR 



PC.CKRAM 
591 

ERRNO . PK TRAM . RAMERR 



I ISSUE URITE CHARACTERtSTICS 
I BR. IF COMMAND ISSUED OK 
I SAVE CONTCNTS OF TSSR 
lURITE CHARACTERISTISC *^AILED 

TRAP 
.IjORO 
.WORD 
.UORO 



CIERHRD 
202 

URTMSG 
SFinSG 



I CLEAR FATAL ERROR FLAG 

I CLEAR INTERRUPT RECEIVED FLAG 

I SET UP NEW URT. SUBSYS MEM. COMMAND 

tSET THE PACKET ADDRESS 

lUAIT FOR SSR TO SET 

iBR IF CARRY SET (GOOD RETURN) 

I SAVE CONTENTS OF TSSR 

•DEVICE FATAL SSR FAILED TO SET 

TRAP CIEROF 
.UORO 203 
.UORD T14SSR 
.UORO PKTSSR 

I SET FATAL ERROR FLAG 

•LOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 

iBY-PASS SUBTEST IF FA^AL ERROR 

TRAP CIESCAPE 
.UORO 100001 -. 

lOIO AN INTERRUPT OCCUR ? 

iBRANCH IF YES 

TRAP CIERHRD 
.UORO 204 
.UORO T14NINT 
.UORO PKTSSR 

I GET THE CONTENTS OF TSSR 

•EXPECTED CONTENTS OF TSSR 

•IS OFF-LINE BIT SET ? 

•BRANCH IF NOT OFF-LINE 

•SET OFF -LINE IN EXPECTED DATA 

•DOES EXPECTED MATCH RECEIVED ? 

•OKAY IF MATCH 

(NBA NOT ZERO 

TRAP CIERHRD 
.WORD 205 
.UORO T14NBA 
.UORO PKTSSR 

•CHECK HAM TO MEMORY 
•RAM OK GO ON 
•THEY DON'T MATCH 

TRAP CIERHRD 
.UORO 206 
.UORO PKTRAM 
.UORO RAMERR 
!<<<<«<<<<<<<< END SEGMENT <<<<<<<<<<<<< 
100001: 

TRAP CleSEG 



E8 



TSV5 - HARDWARE TESTS MACRO mil3 Ol-FEB-64 17:02 
TEST 2i BASIC WRITE SUBSYSTEH MEHORY COMMANO 



267 
266 

269 024460 
024460 
024460 

270 

271 024462 

272 024466 

273 024470 

274 024474 
275 

276 
277 
276 
279 
260 
261 
262 
233 
264 

265 024474 
024474 
024474 

266 

267 024476 
024476 
024502 

266 024S04 
269 024510 

290 024514 

291 024520 
024520 

292 

293 024522 

294 024526 
296 024530 

299 024532 
024532 
024534 
024536 
024540 

300 024542 

301 024542 

302 024546 

306 024550 

307 024552 
024552 
024554 
024556 
024560 

308 024562 

309 024562 

310 024566 

311 024572 

312 024576 

313 024602 

314 024606 



591: 



104403 

005737 002222' 
001402 

004737 017014' 



ENDSUB 



TST 
BEQ 
JSR 



FATFLG 
601 

PC.CKOROP 



104402 



012700 
104441 
012704 
004737 
004737 

104404 

004737 
103405 
010001 

104455 
000317 
003646' 
011644* 

004737 
103405 
010001 

104456 
000320 
005052' 
011644' 

005037 
012704 
052714 
010465 
004737 
103405 



60t: 
I ♦ 

'test 2. SUBTEST 2 

icHECK THAT NON-ZERO MODE BITS BEING SET CAUSES 
t WRITE SUBSYSTEM MEMORY COMMAND TO BE REJECTED 
I 

I - 



SEQ 095 



END SUBTEST \\\\\\\\\\\\\ 
L 10040: 

TRAP CtESUB 

I ANY FATAL ERRORS ? 
I BRANCH IF NOT 
I TRY TO DROP THE UNIT 



000000 

025360' 
026066' 
026124' 



01S604' 



5t: 



010472' 



101: 



002224* 

024740' 

007000 

000000 

016060' 



ll«i 



BGNSUB 



SETPRI «PRI00 



MOV •T14PK2.R4 

JSR PC.T14REST 

JSR PC.T14ftST 
BGNSEG 



JSR PC.SOFINIT 

BCS lot 

MOV RO.Rl 

ERROF ERRNO.SFIERR.SFIMSG 



JSR PC.WRTCMR 

BCS 111 

MOV RO.Rl 

ERRHRD ERRNO.WRTHSG.SFIMSG 



CLR INTRECV 

MOV *T14PACKET.R4 

BIS •007000. (R4) 

MOV R4.TS0B(R5) 

JSR PC.WAITF 

BCS 15« 



I //////////// BEGIN SUBTEST //////////// 
T2.2: 

TRAP CtBSUB 

t LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV 4PRI00.ro 
TRAP CtSPRI 
iGET THE ADDRESS OF COMMAND PACKET 
I RESTORE PACKET TO STARTING VALUES 
iRESTORE PACKET TO STARTING VALUES 
!>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP C«BSEG 

tOO SOFT INIT OF CONTROLLER 

tBR IF SOFT INIT - OK 

tSAVE CONTENTS OF TSSR 

I DEVICE FATAL ERROR DURING INIT 

TRAP CIEROF 
.WORD 207 
.WORD SFIERR 
.WORD SFIMSG 

I ISSUE WRITE CHARACTERISTICS 

(BR. IF COMMAND ISSUED OK 

tSAVE CONTENTS OF TSSR 

{WRITE SUBSYSTEM MEMORY FAILED 

TRAP C«ERHRO 
.WORD 206 
.WORD WRTMSG 
.WORD SFIMSG 

t CLEAR INTERRUPT RECEIVED FLAG 

t SET UP WITH WRT SUBSyS MEf PACKET 

iNON-ZERO COMMAND MODE BITS 

tSET THE PACKET ADDRESS 

I WAIT FOR SSR TO SET 

iBR IF CARRY SET (GOOD RETURN) 



TSV5 - 
TEST 2! 



HAROUARE TESTS 
BASIC WRITE SUeSYS 



YS?EM rl^Ai^Y SiMM^So 



F8 



84 17:02 



315 024610 

319 024612 
024612 
024614 
024616 
024620 

320 024622 
024622 

321 024624 
024624 
024626 

322 024630 

323 024634 

327 024636 
024636 
024640 
024642 
024644 

328 024646 

329 0246S2 

330 024656 

331 024662 

332 024664 

333 024670 

334 024672 

338 024674 
024674 
024676 
024700 
024702 

339 024704 

340 024704 

341 024710 

345 024712 
024712 
024714 
024716 
024720 

346 024722 
024722 
024722 

347 

348 024724 
024724 
024724 

349 

350 024726 
024726 
024730 

351 
352 
353 
354 

335 

357 024732 

359 024740 

360 024740 



010001 

104455 

000321 

025553' 

011656* 

104406 

104410 
000074 
005737 
001004 

104456 

000322 

025643' 

011656' 

016501 

012702 

032701 

001402 

052702 

020201 

001404 

104456 

000323 

025456' 

011656' 

004737 
103405 

104456 
000324 
004741- 
015320' 



104405 



104403 



104432 
001246 



15»: 



002224' 



000002 
100206 
000100 

000100 



221 i 



251; 



010724' 



301: 
3S»: 



MOV RO.Rl 

ERROF ERRN0.T14SSR.PKTS5R 



CKLOOP 
ESCAPE SEG 



TST INTRECV 
BNE 22» 

ERRHRO ERRNO . T 14NINT . PKTSSR 



MOV TSSR(R5).R1 

MOV «SC ! SSR ! TSRE J . R2 

en #OFL.Rl 

BEQ 25» 

BIS •0FL.R2 

CMP R2.R1 

BEQ 30$ 

ERRHRO ERRNO. T142REJ.PKTSSR 



JSR 
BCS 



PC.CKRAM 
59> 



ERRHRO ERRNO.PKTRAM.RAMERR 



ENOSEG 



591: ENOSUB 



100206 



EXIT TST 



iLXAL STORAGE FOR THIS TEST 
I - 

.BLKB 10-<.-TSV2£7> 
T14PACKET: 

.UORO 100206 



SEO 096 



I SAVE CONTENTS OF TSSR 

I DEVICE FATAL SSR FAILED TO SET 

TRAP CtEROF 
.WORD 209 
.UORO T14SSR 
.UORO PKTSSR 

I LOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 

iBY-PASS CHECKS IF FAfAL ERROR 

TRAP OESCAPE 
.UORO 10000$.. 

I DID AN INTERRUPT OCCUR 7 

(BRANCH IF YES 

TRAP C$ERHRO 
.UORO 210 
.UORO T14NINT 
.UORO PKTSSR 

I GET THE CONTENTS OF TSSR 

I EXPECTED CONTENTS OF TSSR 

lis OFF-LINE BIT SET ? 

•BRANCH IF NOT OFF-LINE 

I SET OFF-LINE IN EXPECTED DATA 

I DOES EXPECTED MATCH RECEIVED ? 

I OKAY IF MATCH 

t COMMAND NOT REJECTED 

TRAP C$ERHRD 
.UORO 211 
.UORO T142REJ 
.UORO PKTSSR 

I CHECK RAM TO MEMORY 

(RAM OK GO ON 

I THEY DON'T MATCH 

TRAP C$ERHRO 
.UORO 212 
.UORO PKTRAM 
.UORO RAMERR 
i<<<<<<<<<<<<< END SEGMENT <<<«<<<<<<<<< 
10000$: 

TRAP C$ESEG 

;\\\\\\\\\\\\\ END SUBTEST WWWWWWV 
L10041; 

TRAP C$ESU8 

I ALL DONE THIS TEST 

TRAP C$EXIT 
.UORO L10037-. 



I COMMAND PACKET FOR TEST 

lURITE SUBSYSTEM MEH. COMMAND. UITH IE. ACK 



G8 



TSVS HARDWARE TESTS 
TEST i 



MACRO HI I 15 01 -FEB-84 17:02 
BASIC URITE SUBSrSTEH HEHORT COHHANO 



SEO 097 



561 024742 

562 024744 
565 024746 

564 024750 

565 024750 

566 024751 

567 024752 

568 024754 

569 024756 
570 

571 

575 025556 

575 025560 

576 025560 

577 025562 

578 025564 

579 025366 
580 

381 

582 025570 

383 025370 

384 025372 
585 025374 
386 025376 
387 

388 
389 
390 
391 
392 

393 025402 

394 025456 

395 025555 

396 025643 

397 025735 

398 026021 
399 

400 
401 
402 
403 
404 
405 
406 
407 
408 

409 026066 

410 026066 

411 026072 

412 026076 
415 026102 

414 026106 

415 026110 

416 026114 

417 026116 

418 026120 

419 026122 



024750' 

000000 

000006 

000 
000 
000000 
000000 



100204 
025570' 
000000 
000010 



024756' 

000000 

000400 

000000 000000 



127 
127 
103 
105 
111 
102 



122 
122 
157 
170 
156 
141 



111 
111 
156 
160 
143 
163 



012701 024740' 
012721 100206 
012721 024750' 
005021 

012721 000006 

005021 

005021 

005011 

000207 



.UORO 
.WORD 
.UORO 

T14DATA: 
T14BS0: .dYTE 
T14BS1: .BYTE 
T14BS2: .WORD 
.UORO 
T14BFR: .BLKU 



T140ATA 

0 
6. 

0 
0 
0 
0 

128. 



T14PK2: 



.BLKB 10-<.-TSV2e7> 



T140TA: 



.UORO 
.UORO 
.UORO 
.UORO 



.UORO 
.UORO 
.UORO 
.UORO 



100204 
T140TA 
0 
8. 



T14BFR 

0 

256. 
0.0 



lAOORESS OF CHARACTERISTICS BLOCK 

•STARTING VALUE OF BLOCK SIZE 
{CHARACTERISTICS DATA BLOCK 
iBSELO BYTE 
iBSELl BYTE 
iBSELl UORO 
I DATA 

iHESSAGE BUFFER 



iCOHHANO PACKET FOR TEST 

lURITE CHARA. MEH. CHNO.. UITH IE. ACK 

lAOORESS OF SELECT OAT A BLOCK 

{STARTING VALUE OF BLOCK SIZE 



I SELECT OATA BLOCK 
lAOORESS OF MESSAGE BUFFER 

t LENGTH OF MESSAGE BUFFER 



!l0CAL text messages for TEST 

I- 



' URITE SUBSYSTEM MEMORY CownJ Not Accepted' 

.ASCIZ 'URITE SUBSYSTkIM MEMORY Net R«jMt«d Ulth Non-Z«ro Mod* Field' 
'Content* of TSSR IncorrMt Aftor URITE SUBSYSTEM MEMORY' 
.ASCIZ 'Expoctod Interrupt Not Received On URITE SUBSYSTEM MEMORY* 
.ASCIZ 'Incorrect TS8A Addreee After URITE SUBSYSTEM MEMORY* 
.ASCIZ '8m!c URITE SUBSYSTEM MEMORY C< 



T14I«A: .ASCIZ 
T142REJ: 
T14SSR: .ASCIZ 
T14NINT: 
T14TSBA 
TST14I0 

.EVEN 



{routine TO RESTORE COMMAND PACKET TO START-UP COEFAULT) VALUES 
I URITE SUBSYSTEM MEMORY COMMAND 



t 

t - 

T14RESTI 



SAVREG 

MOV •T14PACKET.R1 

MOV •100206. (RD* 

MOV •T140ATA.(R1}* 

CLR (RD* 

MOV ^..CRD^ 

CLR (RD* 

CLR (RD* 

CLR (RD 

RTS PC 



I SAVE THE REGISTERS 

I START OF THE PACKET 

lURITE SUBSYSTEM MEM. UITH ACK. IE 

lAOORESS OF DATA BLOCK 

t EXTENDED ADDRESS 

I SIZE OF DATA BLOCK IN BYTES 

I CLEAR BSELO AND BSELl 

I CLEAR SEL2 

I CLEAR DATA AREA 

•RETURN 



TSV5 - 



H8 



SEG 098 



420 
421 

422 026124 
425 026124 

424 026130 

425 026134 

426 026140 

427 026144 
426 026146 

429 0261S2 

430 026156 

431 026160 

432 026164 

433 026166 

434 026170 

435 026174 

436 026176 
026176 
026176 

437 
436 
439 
440 
441 
442 
443 



445 
446 
447 



449 

450 
451 
452 
455 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 



T14RST: 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
005011 
005037 
000207 



104401 



025360' 
100204 

025370' 

000010 
024756' 

000400 



024756' 



SAVREG 
MOV 

nov 
nov 

CLR 

nov 
nov 
aR 

MOV 
CLR 
CLR 

aR 

RTS 
ENOTST 



•T14PK2.R1 

•100204. CRD* 

•T140TA.(R1)* 

(RD* 

••..(RD* 

«T14eFR.(Rl)* 

(Rl)« 

*256..(R1)» 

(RD* 

(Rl) 

n4aFR 

PC 



I SAVE THE REGISTERS 

I START OF THE PACKET 

I WRITE CHARA. WITH ACK. IE 

I ADDRESS OF CHARAISTICS DnTA BLOCK 

I EXTENDED ADDRESS 

I SIZE OF DATA BLOCK IN BYTES 

•MESSAGE BUFFER ADDRESS 

I LENGTH OF MESSAGE BUFFER 



I CLEAR 1ST LOC IN MESSAGE BUFFER 
{RETURN 



L100S7: 



TRAP 



CIET5T 



.SBTTL TEST St DMA MEMORY ADDRESSING 



TEST 3 

TEST DESCRIPTION 

This tMt v^rifiM that th« controller can proporly 
mcc— all avai labia CPU iM«ory (othar than that occupiad by tha 
diaonoottc and diaonoatic auparviaor coda) for both raading (DATI) 
and MritinB (DATO>. Varifiad ara tha LSI-11 Bua drivara for all 
availobla addroBe linaa. Up to thia point only 16 bita hava baan 
uaad for DMA trmn»ft^, 

TEST STEPS 

REPEAT FROM 1 TO LOOPCNT 
BEGIN 

Do Subtaat 1 - Varify 

Do Subtaat 2 - Varify 

Do Subtaat 3 • Varify 

Do Subtaat 4 - Varify 
END 



GET STATUS aalactad locationa 
maaaaga packata aalactad locati^ 
Charaetariatie data aalactad locationa 
NXM to aalactad invalid 



464 


026200 






BGNTST 




026200 








469 


026200 


012700 


030200' 


MOV 


470 


026204 


004737 


016322' 


JSR 


471 


026210 


012737 


000012 002216' 


MOV 


472 


026216 


005237 


003150' 


INC 


473 


026222 


004737 


021026' 


JSR 


474 










475 


026226 






T12L00P: 



•TST12I0.ro 
PC.TSTSETUP 
•10. .LOOPCNT 
TSBFLG 
PC.MEMCK 



476 

477 



T5:: 

I ASCII MESSAGE TO IDENTIFY 
I DO INITIAL TEST SETUP 
iPERFORM 10 ITERATIONS 
I SET TEST FLAG 
{CHECK MEMORY 

I LOOP ON TEST LABEL 



TEST 



18 



TSV5 • HAROUARE TESTS MACRO M1113 01-rEB-a4 17:02 
TEST S: SUBTEST 1: GET STATUS SELECTED LOCATIONS 



SEQ 099 



478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 



507 
508 
509 
510 
511 
512 
513 
514 



515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 



.SBTTL TEST 3: SUBTEST 1: GET STATUS SELECTED LOCATIONS 



♦ ♦ 
TEST 3 



SUBTEST 1: 

SUBTEST DESCRIPTION t 

This subtest vsrifiss ths eontrollsr can fsteh • gst ststus 
eoMRsnd from all avsilabls MSMory lecstSons. 
Tmo Mord blocks srs tsstsd ens at a t!«s by first ssttin^ 
all availabls mswory to a backflround pattsm of 12S2S2 
A Got Status commund is thsn sxscutsd to various atftfrs) 
sach availabls mswory 4k Mortf block. Ths various oddrsi 
ars detsmiihsd by floating a 1 thsn a 0 through ths 



m 

sss bits. 



TEST STEPS: 
BEGIN 

Writs to TSSR to soft initislizs 

Oo a URITE CHARACTERISTICS to sstup a 



buffsr 



END 



REPEAT FOR SELECTED VALID ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE S2K 
BEGIN 

Gst a valid iiiodulo-4 tsst sddrsss 

Do a GET STATUS coiwiand from ths tsst sddrsss 

END 



026226 
026226 
026226 



026230 
026234 
026236 
026236 
026240 
026240 
026242 
026244 
026246 



026250 
026250 
026254 
026260 
026264 
026270 
026274 
026310 
026312 
026314 
02631' 
026314 



104402 



004737 015604' 
103405 

010001 

104455 
000455 
003646' 
011644* 



012704 027770' 

004737 031350' 

005037 003134* 

010465 000000 

004737 016146' 

103405 
010001 



104455 



BGNSUB 



lUrits to TSSR to soft initialixs 
JSR PC.SOriNXT 
BCS 159 
NEXT.ERRNO 
nOV RO.Rl 

ERRDF ERRNO.SFIERR.SFinSG 



tOo 
151 



17«! 



a URITE CHARACTERISTICS to sstup a 

HOV •T12PACKET.R4 
JSR PC.T12SURT 
CLR KTENABLE 
HOV R4.rSD6(R5) 
JSR PC.CHKTSSR 
FORCERROR 17t 
BCS 201 
HOV RO.Rl 
NEXT.ERRNO 

ERRDF ERRN0.T12UR TSSR. PK TSSR 



I //////////// BEGIN SUBTEST ////////// 
T3.1: 

TRAP CtBSUe 



I DO SOFT INIT OF CONTROLLER 
iBR IF SOFT INIT • OK 

(SAVE CONTENTS OF TSSR 

IDEVICE FATAL ERROR DURING INIT 

TRAP CtEROF 
.UORO 301 
.yORO SFIERR 
.UORO SFIHSG 

buffsr 



I GET THE ADDRESS OF COHHANO PACKET 

(RESTORE PACKET TO STARTING VALUES 

iTURN OFF KT-11 

I SET THE PACKET ADDRESS 

tUAIT FOR SSR TO SET 

iBR IF SSR SET IN CHKTSSR 
(SAVE CONTENTS OF TSSR 

iDEVlCE FATAL SSR FAILED TO SET 

TRAP CtERDF 
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026316 
026320 
026322 

526 
529 
530 
531 

532 026324 

533 026330 

534 026334 

535 026340 

536 026340 

537 026344 

538 026346 

539 026350 

540 026354 

541 026356 

542 026362 

543 026366 

544 026374 

545 026400 

546 026402 

547 026406 
54S 026412 

549 026416 

550 026422 

551 026424 

552 026430 

553 026434 

554 026440 

555 026454 

556 026456 

557 026460 

558 026460 
026460 
026462 
026464 
026466 

559 026470 
026470 

560 026472 

561 026472 

562 026502 

563 026506 

564 026510 

565 026514 

566 026520 

567 026522 

568 026526 

569 026530 

570 026536 

571 026542 

572 026546 

573 026552 
026552 
026552 

574 026554 



000456 

030302' 

011656' 



005037 
005037 
012702 

005037 
012201 
005000 
005737 
001407 
016200 
042700 
012737 
004737 
103034 
013704 
013703 
004737 
042703 
050304 
004737 
010465 
004737 

103405 
010001 



104455 
000457 
030226' 
011674' 

104406 



020227 
103002 
000137 
005737 
003012 
005737 
001407 
012737 
012702 
000137 
004737 



104403 

005737 



SEQ 100 



.WORD 302 
.WORD T12URTSSR 
.WORD PKTSSR 



002222' 
030040' 
030044* 

003134' 



030040* 

177776 
177774 
000001 
031046* 

030034* 
030032* 
031416* 
177774 

017106* 

000000 

016146* 



tV«rify a G*t Statu* can ba 
iGat a valid iiiedulo-4 taat 
I Do a GET STATUS eoHHMnd from tha 



fatchad from each adtfraaa 



201: 



T121L00P: 



CLR 
CLR 

nov 



003134* 



251: 



030176' 

026340* 
030040' 

003132' 

000001 
030044' 
026340* 
017106' 



002222' 



32<: 



401: 
65* : 



701: 



030040' 



SO*: 



CLR 
HOV 
CLR 
TST 
BEQ 

nov 

SIC 

nov 

JSR 
BCC 

nov 
nov 

JSR 
BIG 
BIS 
JSR 

nov 

JSR 



FATFLC 
T12KT 
•T12BLK.R2 

K TENABLE 
(R2)*.R1 
RO 

T12KT 
251 

•2(R2).R0 

*tC<A1716>.R0 

•l.KTENABLE 

PC.T12C0NVERT 

651 

T12L0A00.R4 
T12HIA00.R3 
PC.T12SETGET 
•tC<Al7l6>.R3 
R3.R4 
PC.KTOFF 
R4.TS0B(R5) 
PC.CMCTSSR 
S2« 



rORCERROR 
BCS 40* 
nov RO.Rl 
NEXT ERRNO 

ERROr ERRND.T12GETSSR.PKTGETS 



CKLOOP 



ta«t addraaa 

CLEAR FATAL ERROR FLAG 
TEST ABOVE 28K SWITCH 
POINT TO TEST PATTERN TABLE 

TURN OFF ABOVE 28K TEST FLAG 
GET TEST PATTERN ADDRESS 
ASSUME NO TEST ABOVE 28K 
TEST ABOVE 28K THIS TINE? 
BR IF NO 

GET TEST PATTERN AGAIN 
SAVE 18 BIT ADDRESS ONLY 
TURN ON ABOVE 28K TEST FLAG 
CONVERT TEST PATTERN TO TEST ADDRESS 
BR IF INVALID PACKET ADDRESS 
COPY CURRENT PACKET LOU ADDRESS 
COPY CURRENT PACKET HIGH ADDRESS 
SETUP CURRENT PACKET TO GET STATUS 
SAVE ADDRESS BITS 17*16 
SETUP 18 BIT PACKET ADDRESS 
TURN OFF KT-11 

SET THE PACKET ADDRESS TO EXECUTE 
UAIT FOR SSR TO SET 



FORCEXIT 80t 


cnp 


R2.4T12TBE 


BHIS 


701 


jnp 


T121L00P 


TST 


T12KT 


BGT 


601 


TST 


KTFLG 


BEQ 


801 


nov 


♦1.T12KT 


nov 


•T12BLK.R2 


jnp 


T121L00P 


JSR 


PC.KTOFF 


ENOSUB 


TST 


FATFLG 



BR IF SSR SET IN CHKTSSR 
SAVE CONTENTS OF TSSR 

; DEVICE FATAL SSR FAILED TO SET 

TRAP CIERDF 

.UORO 303 

.UORO T12GETSSR 

.UORO PKTGETS 

I LOOP ON ERROR. IF FLAG SET 

TRAP CtCLPl 



(DONE ALL TSTBLK TEST PATTERNS? 
I BR IF YES 

lOO ANOTHER HOOULO- 4 ADDRESS 
iDONE ABOVE 26K TESTING TOO? 
iBR IF YES 

(ANY HEHORY ABOVE 28K ON SYSTEM? 
iBR IF NO 
l«T SUITCH 

{RESET TEST PATTERN TABLE 
I DO ABOVE 26K TESTING 
iTURN OFF KTll 

jWWSWWWW END SUBTEST \\\\\\\\\\\\\ 
L 10043: 

TRAP CtESUB 

I ANT TATAL ERRORS ? 
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l<8 



SEQ 101 



575 026560 

576 026562 

577 026566 
576 

579 
500 
501 
502 
503 
504 
505 
506 
507 
500 
509 
590 
591 
592 
593 
594 
595 
596 
597 
590 
599 
600 
601 
602 
603 
604 
605 
606 
607 
600 



001402 

004737 017014' 



BEQ 
JSR 



1001 

PC.CKOROP 



I BRANCH IF NOT 
I TRY TO DROP THE UNIT 



1001: 

.SBTTL TEST 3: SUBTEST 2: MESSAGE PACKETS TO SELECTED LOCATIONS 

TEST 3: SUBTEST 2: 

SUBTEST DESCRIPTION: 

This subtMt v«pifi«a th« control l«r can doposit moosago packets 
to all avai labia mamery location*. 

Urita Charactariatics coMMinds ara axacutad with massaoa 
buffar addra a aaa aat to various addraasas in each available 
■aiiiory location. 

Tha various mddrmm—m ara datarminad by float ina a 1 than a 0 
through tha addraas bits. 

TEST STEPS: 

BEGIN 

Urita to TSSR to soft initializa 

Do a URITE CHARACTERISTICS to eatup a massaga buffar to contra 

REPEAT FOR SELECTED ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K 
BEGIN 

Gat a valid «edulo-4 tast addraas 

Sat tha packat massao* buffar to tha TEST ADDRESS 

Do a URITE CHARACTERKtiCS 

Raatora tha taat Maasaga buffar to background pattarn 

END 

END 



}//////////// BEGIN SUBTEST ////////// 
T3.2: 

TRAP CIBSU8 



609 


026566 
026566 
026566 


104402 




BGNSUB 


610 










611 










612 








tUrita to TSSR to soft initializa 


613 


026570 


004737 


015604* 


JSR PC.SOriNIT 


614 


026574 


103405 




BCS 15* 


615 


026576 






NEXT.ERRNO 


616 


026576 


010001 




MOV RO.Rl 


617 


026600 






ERRDF ERRNO.SFIERR.SFIMSG 




026600 


104455 






026602 


000460 








026604 


003646' 








026606 


011644' 






610 










619 








iOo a URITE CHARACTERISTICS to satup 


620 


026610 






151: 


621 


026610 


012704 


027770' 


MOV ♦T12PACKET.R4 


622 


026614 


004737 


031350' 


JSR PC.T12SWRT 


623 


026620 


004737 


017106' 


JSR PC.KTQFF 


624 


026624 


010465 


000000 


MOV R4.TSDB(RS) 


625 


026630 


004737 


016146' 


JSR PC.CHKTSSR 



iDO SOFT INIT OF CONTROLLER 
iBR IF SOFT INIT - OK 

I SAVE CONTENTS OF TSSR 

{DEVICE FATAL ERROR DURING INIT 

TRAP CIERDF 

.UORO 304 

.UORD SFIERR 

.UORD SFIMSG 



t GET THE ADDRESS OF COMMAND PACKET 

iSET PACKET TO WRITE CHARACTERISTICS 

tTURN OFF KT-11 

I SET THE PACKET ADDRESS 

I WAIT FOR SSR TO SET 
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TEST 5: SUBTEST 2: MESSAGE PACKETS TO SELECTED LOdATIONS 



626 026634 

627 026650 

628 026652 

629 026654 

630 026654 
026654 
026656 
026660 
026662 

631 
632 
633 
634 

635 026664 

636 026670 

637 026674 
636 026674 

639 026676 

640 026700 

641 026704 

642 026710 

643 026714 

644 026716 

645 026722 

646 026726 

647 026732 

648 026740 

649 026746 

650 026752 

651 026756 

652 026762 

653 026776 

654 027000 

655 027002 

656 027002 
027002 
027004 
027006 
027010 

657 027012 
027012 

658 027014 

659 027014 

660 027024 

661 027030 

662 027032 

663 027036 

664 027042 
027042 
027042 

665 027044 

666 027050 

667 027052 

668 027056 
669 

670 
671 



103405 
010001 



104455 
000461 
030302' 
011656' 



005037 
012703 

012301 
010100 
042700 
042701 
004737 
103402 
000137 
012704 
004737 
013737 
013737 
004737 
010465 
004737 

103405 
010001 



104455 
000462 
030302' 
011656' 

104406 



020327 
103002 
000137 
004737 



104403 
005737 
001402 
004737 



17$ 



17$i 



FORCERROR 
BCS 20 < 
MOV RO.Rl 
r4EXT.ERRN0 

ERRDF ERRN0.T12URTSSR.PKTSSR 



002222' 
030044' 



177774 
000003 
031046' 

027014' 
027770' 
031350' 

030034' 030000' 
030032' 030002' 
017106' 
000000 
016146' 



iG«t a valid modulo-4 taat address 
iSat tha packat m—ma* buffar to tha 

I Do a URITE CHARACTERISTICS 



20< : CLR 
NOV 
T122L00P: 

MOV 
MOV 
SIC 
SIC 
JSR 
BCS 
JMP 
MOV 
JSR 
MOV 
MOV 
JSR 
MOV 
JSR 



251: 



FATFLG 
•T12BLK.R3 

(R3)*.R1 
Rl.RO 
♦177774, RO 
«3.R1 

PC,T12C0NVERT 

25t 

150» 

♦T12PACK6T.R4 
PC.T12SURT 
T12L0ADD.T12DATA 
T12HIAD0.T12DATA*2 
PC.KTOFF 
R4.TSDB(R5) 
PC.CHKTSSR 
321 



030176' 

026674' 
017106' 



002222' 
017014' 



321: 



501: 
1501: 



160t: 



FORCERROR 
BCS 501 
MOV RO.Rl 
NEXT.ERRNO 
ERROf' ERRNO . T12URTSSR . PKTSSR 



SEQ 102 



iBR IF SSR SET IN CHKTSSR 
I SAVE CONTENTS OF TSSR 

I DEVICE FATAL SSR FAILED TO SET 

TRAP CtEROF 

.WORD 305 

.UORO T12URTSSR 

.UORD PKTSSR 



ta«* addrass 

I CLEAR FATAL ERROR FLAG 
(POINT TO TEST PATTERN TABLE 

tGET TEST PATTERN ADDRESS 

I GET ADDRESS ALL "18 BITS" 

I LEAVE ONLY A17 AND A16 

I GET RID OF A17 AND A16 

•CONVERT TEST PATTERN TO TEST ADDRESS 

I BR IF VALID MESSAGE BUFFER ADDRESS 

I GET ANOTHER TEST PATTERN TO TRY 

tSET THE COMMAND PACKET ADDRESS 

I SETUP T12PACKET TO URITE CHAR. 

I SETUP LOU ORDER MESSAGE BUFFER ADO. 

I SETUP HIGH ORDER MESSAGE BUFFER ADD. 

iTURN OFF KT-11 

I SET THE PACKET ADDRESS TO EXECUTE 
tWAIT FOR SSR TO SET 

tBR IF SSR SET IN CHKTSSR 
tSAVE CONTENTS OF TSSR 



CKLOOP 



FORCEXIT 
CMP 
BHIS 
JMP 
JSR 

ENDSUB 



160t 



R3,#T12TBE 
1601 

T122L00P 
PC.KTOFF 



1801: 



TST 
BEQ 
JSR 



FATFLG 

laoi 

PC.CKDROP 



i DEVICE FATAL SSR FAILED TO SET 

TRAP C»ERDF 

.WORD 306 

.WORD T12WRTSSR 

.WORD PKTSSR 

(LOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 



I DONE ALL TST12BLK TEST PATTERNS? 
I BR IF YES 

I DO ANOTHER HOOULO- 4 ADDRESS 
I TURN OFF KTll 

END SUBTEST 
L 10044: 

TRAP 

I ANY FATAL ERRORS ? 
I BRANCH IF NOT 
iTRY TO DROP THE UNIT 



\\\\\\\\\\\\\ 
CtESUB 



.SBTTL TEST 3: SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS 
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SEQ 103 



672 
673 
674 
675 
676 
677 
676 
679 
660 
661 
662 
663 
664 
665 
666 
667 
666 
669 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 



701 
702 
703 
704 
705 
706 
707 
708 



027056 
027056 
027056 



027060 
027064 
027066 
027066 
027070 
027070 
027072 
027074 
027076 



TEST 3: SUBTEST 3: 

SUBTEST DESCRIPTION: 

This subtMt v«rifi«« th« controller can fotch • 
Writ* Chsractori sties data block from all available 
mamory locations. 

Urita Character i sties coMmands ara axacutad Mith 
characteristic data blocks at various iiie«ory addresses. 
The various memory addresses are determined by floating 
a 1 then a 0 through the address bits. 

TEST STEPS: 

BEGIN 

Write to TSSR to soft initialize 

REPEAT FOR SELECTED VALID ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K 
BEGIN 

Get a valid test address 

Set the test packet characteristics data pointer to the 
test address. 

Store expected characteristic data in test address block 
Do a WRITE CHARACTERISTIC command 

END 



END 



104402 



004737 015604' 
103405 

010001 

104455 
000463 
003646' 
011644' 



BGNSUB 



(Write to TSSR to soft initialize 
JSR PC.SOFINIT 
BCS 20 « 
NEXT.ERRNQ 
KOV RO.Rl 

ERROF ERRNO.SFIERR.SFIMSG 



s //////////// BEGIN SUBTEST ////////// 
T3.3: 

TRAP CIBSU6 



sDO SOFT INIT OF CONTROLLER 
»BR IF SOFT INIT « OK 

(SAVE CONTENTS OF TSSR 

(DEVICE FATAL ERROR DURING INIT 

TRAP C«EROF 
.WORD 307 
.WORD SFIERR 
SFinSG 



709 
710 








(Get 


a valid 


test address 




711 


027100 


005037 


002222' 


20$: 


CLR 


FATFLG 


(CLEAR FATAL ERROR FLAG 


712 


027104 


005037 


030040' 




CLR 


T12KT 


(TEST ABOVE 28K SWITCH 


713 


027110 


012703 


030044' 




MOV 


«T12BLK,R3 


(POINT TO TEST PATTERN TABLE 


714 


027114 






T123L00P: 




715 


027114 


005037 


003134' 




CLR 


KTENABLE 


(TURN OFF ABOVE 28K TEST FLAG 


716 


027120 


012301 






MOV 


(R3)*.R1 


(GET TEST PATTERN ADDRESS 


717 


027122 


010100 






MOV 


Rl.RO 


(GET ADDRESS ALL "16 BITS" 


718 


027124 


042700 


177774 




BIC 


•177774.ro 


(LEAVE ONLY A17 AND A16 


719 


027130 


042701 


000003 




BIC 


♦3.R1 


(GET RID OF Al 7 AND A16 


720 


027134 


005737 


030040' 




TST 


T12KT 


(TEST ABOVE 28K THIS TIME? 


721 


027140 


001407 






BEQ 


251 


(BR IF NO 


722 


027142 


016300 


177776 




MOV 


-2(R3).R0 


(GET TEST PATTERN AGAIN 
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N8 



723 027146 

724 027152 

725 027160 

726 027164 

727 027166 
728 

729 027172 

730 027176 

731 027202 

732 027210 

733 027216 
734 

735 027222 

736 027226 

737 027232 

738 027236 

739 027252 

740 027254 

741 027256 

742 027256 
027256 
027260 
027262 
027264 

743 027266 
027266 

744 027270 

745 027270 

746 027274 

747 027276 

748 027302 

749 027306 

750 027310 

751 027314 

752 027316 

753 027324 

754 027330 

755 027334 

756 027340 
027340 
027340 

757 027342 

758 027346 

759 027350 

760 027354 
761 

762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 



042700 
012737 
004737 
103402 
000137 

012704 
004737 
013764 
013764 
004737 

004737 
010465 
004737 

103405 
010001 



104455 
000464 

030302' 
011656' 

104406 

020327 
103002 
000137 
005737 
003012 
005737 
001407 
012737 
012703 
000137 
004737 



104403 
005737 
001402 
004737 



177774 
000001 
031046' 

027270* 

027770' 
031350' 
030034' 
030032' 
031460' 

017106' 

000000 

016146' 



030176' 

027114* 
030040' 

003132' 

000001 
030044* 
027114* 
017106* 



002222' 
017014' 



003134* 



000002 
000004 



251: 



tS«t 

30t: 



tOe a 



BIC ♦tC<A1716>,R0 

MOV •l.KTENABLE 

JSR PC.T12C0NVERT 

BCS 301 

JMP 60» 



32»: 

40$: 
60»: 

65«: 



thm t—t p«ek«t charaet«ri sties data 

MOV «T12PACKET.R4 
JSR PC.T12SURT 
MOV T12LOA0O . PKLOUC R4 ) 
MOV T12HIA0D . PKHIC R4 ) 
JSR PC.T12CHAR 
URITE CHARACTERISTIC coiMMnd 
JSR PC.KTOFF 
MOV R4.TS0B(R5) 
JSR PC.CHKTSSR 
FORCERROR 32« 
BCS 40$ 
MOV RO.Rl 
NEXT.ERRNO 



tSAVE 18 BIT ADDRESS ONLY 
I TURN ON ABOVE 28K TEST FLAG 
I CONVERT TEST PATTERN TO TEST 
I BR IF VALID "^.ST ADDRESS 
iGET NEXT TE&i PATTERN 



SEQ 104 



ADDRESS 



taat 



a peintar to tha 

iGET THE ADDRESS OF COMIAND PACKET 
{RESTORE PACKET TO STARTING VALUES 
I STORE CHAR. DATA PTR LOU ADDRESS 
I STORE CHAR. DATA PTR HIGH ADDRESS 
I STORE EXPECTED DATA IN DATA BLOCK 

iTURN OFF KT-11 

tSET THE PACKET ADDRESS TO EXECUTE 
I WAIT FOR SSR TO SET 

)BR IF SSR SET IN CHKTSSR 
tSAVE CONTENTS OF TSSR 



ERROF ERRN0.T12URTSSR.PKTSSR 



030040* 



70$: 



75»: 



CKLOOP 



CMP 

BHIS 

JMP 

TST 

BGT 

TST 

BEQ 

MOV 

MOV 

JMP 

JSR 

ENOSUB 



TST 
BEQ 
JSR 



R3.«T12TBE 
651 

T123L00P 

T12KT 

70» 

KTFL6 

70« 

♦I.TISKT 

♦T12BLK.R3 

T123L00P 

PC.KTOFF 



FATFLG 
75$ 

PC.CKDROP 



{DEVICE FATAL SSR FAILED TO SET 

TRAP CIERDF 

.WORD 308 

.WORD T12URTSSR 

.WORD PKTSSR 

iLOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 

{DONE ALL TSTBLK TEST PATTERNS? 
tBR IF YES 

tDO ANOTHER M(.OULO- 4 ADDRESS 
{DONE ABOVE 26K TESTING TOO? 
tBR IF YES 

{ANY MEMORY ABOVE 26K ON SYSTEM? 
tBR IF NO 
tSET SUITCH 

{RESET TEST PATTERN TABLE 
{DO ABOVE 28K TESTING 
{TURN OFF KTll 

{\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\ 
L 10045: 

TRAP CtESUB 

(ANY FATAL ERRORS ? 

: BRANCH IF NOT 

{TRY TO DROP THE UNIT 



.SBTTL TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES 



TEST 3t SUBTEST 4: 

SUBTEST DESCRIPTION: 

This aubtaat varifiaa tha NXM error b!t in the TSSR 

register is sat Mhan attempting to fetch data (a characteristic 

data block) from selected nonexistent locations. 

If NXM faile to sat it ia likely that an LSI-11 Bus driver is 

failing to assert an oddress line. 
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SEQ 105 



775 
774 
775 
776 
777 
778 
779 
780 
781 
782 
785 
784 
78S 
786 
787 
788 
789 
790 
791 
792 
795 
794 
795 
796 
797 
798 
799 
800 

801 027554 
027354 
027554 

802 
805 

804 027556 

805 027556 

806 027562 

807 027564 
808 

809 
810 

811 027570 

812 027574 
815 027576 

814 027576 

815 027400 
027400 
027402 
027404 
027406 

816 
817 
818 

819 027410 
027410 

820 027412 

821 027416 

822 027422 



Addr««««« t««t«d includ* mil eoMbinatioo* of K!fl^-oPd»r addr*** 
bit* ( i .• bits 16-21). 

CAUTION 

Th« LSI BUS tfrivsra f«p all availabU addraaa liAM(16-21) 
ara only chackad whan running en a PDP-11 ayatam with mora than 
128K Mord* of iMMOryf 

TEST STEPS: 
BEGIN 

Urita to TSSR to soft initializa 
Do ■ MPito charactariatic co—wnd 
Xnvart tha axtondad foaturo* aw itch 

REPEAT FOR SELECTED NON-EXISTENT NEHORY ADDRESSES 
BEGIN 

Got m tnvalitf toat adtfraoo 

Sot tha toot pockot choractar i at i eo data pointar to tr»o 
toot oddrooo. 

Do • URITE CHARACTERISTIC co— and 
If TSSR pogiotop NXH bit not oot thon print orror 

END 

END 



104402 



005757 005156' 
001002 

000157 027716' 



004757 015604' 
105405 

010001 

104455 
000465 
005646* 
011644' 



104406 

012704 027770' 

004757 051550' 

005057 005154' 



BGNSUB 



TST 



NXNFLG 

lot 

NOEXTf 



tUrito to TSSR to aoft initializo 

10»: JSR PC.SOFINIT 
BCS lit 
NEXT.ERRNO 
NOV RO.Rl 

ERROF ERRNO.SFIERR.SFINSG 



I //////////// BEGIN SUBTEST ////////// 
T5.4: 

TRAP C»BSUB 



iGOT ENOUGH HEHORy? 
I IF SET STAY 
iLEAVE IF NOT SET 



lOO SOFT INIT OF CONTROLLER 
iBR IF SOFT INIT • OK 

I SAVE CONTENTS OF TSSR 

lOEVlCE FATAL ERROR DURING INIT 

TRAP CtEROF 

.UORO 509 

.yORO SFIERR 

.WORD SFIHSG 



tDo o URITE CHARACTERISTIC comm^ oo to invort owitch 
11*: CKLOOP 



NOV #T12PACKET.R4 
JSR PC.T12SURT 
CLR KTENABLE 



I LOOP IF SELECTED 

TRAP OCLP; 
I GET THE ADDRESS OF COHHANO PACKET 
•RESTORE PACKET TO STARTING VALUES 
I TURN OFF KT -11 



C9 



SEO 106 



623 027426 

624 027452 

625 027436 

626 027452 

627 027454 
626 027456 

629 027456 
027456 
027460 
027462 
027464 

630 027466 
027466 

831 027470 

632 

633 

634 

635 027474 

636 027500 

637 027500 
636 027506 
639 027514 
640 

641 
642 
643 

844 027514 
645 027520 

846 027524 

847 027SS2 
846 

849 

850 027540 

851 027544 

852 02755C 

853 027554 

854 027570 

855 027572 

856 027574 

857 027574 
027574 
027576 
027600 
027602 

858 027604 

859 027610 
027610 

660 027612 
861 027622 
027622 
027624 

662 

C63 027626 
664 027626 
865 027632 
666 027646 
867 027652 



010465 000000 
004737 016146' 

103405 
010001 



104455 
000466 

030302' 
011656' 

104406 

004737 020734* 



005037 002222* 

013737 003142' 050032' 
013737 005140' 050054' 



012704 027770' 

004757 051550* 

015764 030054* 000002 

015764 030052* 000004 



004757 017106' 
010465 000000 
004757 016060' 

105407 
010001 



104455 
000467 

050502' 
011656' 

005257 002222* 
104406 



104410 

000076 



016501 000002 

052701 004000 
001020 



15<: 



17$: 



ttet an 

20t: 
251: 



MOV R4,TSDe(R5) 
JSR PC.CMKTSS« 
FORCERROR 15 » 

8CS 171 
nOV RO.Rl 
NEXT.ERRNQ 

ERROr ERRN0.T12yRTSSR.PKTSSR 



CKLOOP 

JSR PC. INVERT 
invalid tMt 
CLR FATFLG 



nov 
nov 

T124L00PS 



NXf*4l.T12HlM)0 
NXML0.T12L0M)0 



I SET THE PMCKET AOORESS 
tlMIT FOR SSR TO SET 

iBR IF SSR SET IN CHKTSSR 
I SAVE CONTENTS OF TSSR 

(DEVICE FATAL SSR FAILED TO SET 

TRAP C»ER0F 

.UORO 510 

.UORD T12URTSSR 

.yORO PKTSSR 

iLOOP IF SELECTED 

TRAP CICLPI 

(INVERT THE SWITCH 



laEAR FATAL ERROR FLAG 

I SAVE TEST AOORESS HIGH 
I SAVE TEST ADDRESS LOU 



iS«t thm t—t »ack«t chari 



:t«r;otics dmtm pointer to th« 



501: 



nov 

JSR 
NOV 
NOV 



•T12PACKET.R4 
PC.TUSWRT 
T12LOA0O.PKL0U(R4) 
T12HIA00.PKHI(R4) 



lOo • URITE CHARACTERISTIC cc 

JSR PC.KTOFF 

NOV R4.TS0e(RS) 

JSR PC.WAITF 

FORCERROR 521 

BCS 40t 

NOV RO.Rl 

NEXT .ERRNO 
S2t: ERRDF ERRNO. T12URTSSR. PKTSSR 



40t: 



INC 

CKLOOP 



FATFLC 



FORCERROR 
ESCAPE SUB 



45I.N0TSSR 



iGET THE ADDRESS OF COMHAND PACKET 
iRESTORE PACKET TO STARTING VALUES 
iSTORE CHAR. DATA PTR LOU ADDRESS 
I STORE CHAR. DATA PTR HIGH ADDRESS 



iTURN OFF KT-11 

tSET THE PACKET ADDRESS TO EXECUTE 
lUAIT FOR SSR TO SET 

iBR IF SSR SET IN CHKTSSR 
•SAVE CONTENTS OF TSSR 

t DEVICE FATAL SSR FAILED TO SET 

TRAP CtEROF 
.UORD 511 
.UORO T12URTSSR 
.UORD PKTSSR 

I SET FATAL ERROR FLAG 
{LOOP ON ERROR. IF FLAG SET 

TRAP CICLPI 



iBV-PASS SUBTEST IF FATAL ERROR 

TRAP CIESCAPE 
.UORD L10046-. 

I If TSSR rMivtvr NXH bit net Mt th«n print orrer niMsao* 
45>: 

NOV TSSR(R5).R1 iGET TSSR CONTENTS 

FORCERROR 521 

BIT 4NXH.R1 iNXH SET7 

BNL 60t iBR IF YES 



D9 



668 


027654 


005237 


030032' 






INC 


T12HIA00 


oOt 




A037'» 7 








CMP 


•4.T12HIA0D 


O '%/ 












BNE 


T124L00P 


671 


027670 










NEXT.ERftNO 


Ore 




A1 S7S7 




AAPPA A ' 


SPi • 


MOV 


T12L0ADD.ERRL0 


II7X 
O r O 


AO 76 76 




AYAAXP* 


AAPPS6* 




nov 


T12HIA0D.ERRHI 


O f ^ 


f f 

027706 
027710 


000470 

030737' 

M 1 7S6' 








EfMMM) 


ERRNO . T 12liiXn . AODSSR 


A 7^ 
















1176 

O r V 


VC f f 

f f 1^ 








60i • 


CKLOOP 




ft77 
Off 


0>7716 








90t • 






O f o 


AP7716 












A 79 


AP7716 


0047S7 


017106' 

VA ' AVO 






JSR 


PC.KTOTF 




OP77PP 










ENDSUB 




881 


027724 


005737 


002222' 






TST 


F4TFLG 


882 


027730 


001402 










1001 






0047S7 


A17A14' 
VA f v*^ 






JSR 


PC.CKOAOP 




Ad77S6 


f J f 


A1697A' 




lAAi • 


JSR 


PC TSTLOOP 


MIS 


AP77AP 










BCC 


1051 




AP77AA 

' f 


AAA1 X7 








JMP 


T12L00P 


M7 

OO f 


VC r f 








lost: 






AM 




AAA7X7 

f O f 


A1 71 A6* 






JSR 


PC, K TOFF 


MQ 






AAX1SA* 






CLR 


TSBFlG 




AP776A 
f f ov 

0P7760 

Vtf f f wV 

OP7769 










EXIT 


TST 


A91 
















A9P 
















AQS 










1 ♦ 
















iLOCM. STORAGE 


FOR THIS TEST 


A9S 










1 - 






A96 
















A9A 


OP 7 764 

f f 










.BLKB 


10- < . •TSV2t7> 




OP7770 








T12PACKETJ 




901 


vc f f r V 










.UORO 


100004 


90? 


OP777P 










.UORO 


T120ATA 


90S 


0P7774 










.MQRO 


0 


904 


0P7776 










.UORO 


8. 


905 
















906 


osoooo 








T120ATA 






907 


030000 


OSOOIP' 








.UORO 


T12BrR 


906 


030002 


000000 








,U0RO 


0 


909 


030004 


000016 








.UORO 


14. 


910 


0300(» 


000000 


000000 






.UORO 


0.0 


911 














912 


030012 








T12BrR: 


.BLKU 


8. 


915 
















914 


030032 


000000 






T12HIA00: 


.UORO 0 


915 


030034 


000000 






T12L0AD0: 


.UORO 0 


916 


030036 


000000 






T12PAR6: 


.UORO 0 


917 


030040 


000000 






T12KT: 




.UORO 0 



SEQ 107 



iTSUOS BUMP HIGH AOORESS COUNTER 
iTSUOS CHECK TO SEE IF AT 19 BITS YET 
iTSUOS TRY BITS 17 AND 18 BEFOR ERROR 

iMEHORY TEST ADDRESS LOU 

iNEnORV TEST ADDRESS HIGH 

I REPORT ADDRESS AND TSSR ERROR 

TRAP ClERMtO 
.UORO 312 
.UORO T12NXH 
.UORO ADOSSR 

iLOOP ON ERROR. IF FLAG SET 

TRAP OCLPl 



I TURN OFF KTll 

iWWNWWWW END SUBTEST \\\\\\\\\\\ 
L 10046: 

TRAP OESUB 

I ANT FATAL ERRORS ? 

•BRANCH IF NOT 

I TRY TO DROP THE UNIT 

I SHOULD UE DO ITERATIONS? 

iBR IF NO 

iLOOP UNTIL ITERATION COUNT DONE 

I TURN OFF MEHORY MANAGEMENT 
I CLEAR TEST FLAG 
I ALL DONE THIS TEST 

TRAP CtEXiT 
.UORO L10042-. 



I COMMAND PACKET FOR TEST 

lURITE CHARACTERISTICS COMMAND. UITH ACK 

I ADDRESS OF CHARACTERISTICS BLOCK 

I STARTING VALUE OF BLOCK SIZE 

I CHARACTERISTICS DATA BLOCK 
I LOU AOORESS OF MESSAGE BUFFER 
I HIGH ORDER OF MESSAGE BUFFER 
(LENGTH OF MESSAGE BUFFER 



(MESSAGE BUFFER 

I HIGH ADDRESS 

I LOU ADDRESS 

I ADDRESS IN PAR FORMAT 

I TEST ABOVE 28K SUITCH 



TSV5 - HAROU/WE TESTS MACRO «1115 Ol-FEB-04 17:02 
TEST 3: SUBTEST 4: NXn TO SELECTED INVALID ADDRESiE< 



E9 



SEO 106 



918 030042 

919 

920 

921 

922 

923 

924 030044 

925 030046 

926 030050 

927 030052 

928 030054 

929 030056 

930 030060 

931 030062 

932 030064 

933 030066 

934 030070 

935 030072 

936 030074 

937 030076 
936 030100 

939 030102 

940 030104 

941 030106 

942 030110 

943 030112 

944 030114 

945 030116 

946 030120 

947 030122 
946 030124 

949 030126 

950 030130 

951 030132 

952 030134 

953 030136 

954 030140 

955 030142 

956 030144 

957 030146 

958 030150 

959 030152 

960 030154 

961 030156 

962 030160 

963 030162 

964 030164 

965 030166 

966 030170 

967 030172 
966 030174 
969 030176 
970 

971 
972 
973 

974 030200 



000000 



T124TSTt .UORD 

! TABLE OF ADDRESSES 
I 

a 



•ADDRESS TEST BIT 



SAAAAIX 








unQn 

• MUVfU 












unon 






unon 






unon 






























, W^fU 






























• Mimv 
























unpfi 






« MUVfw 






• HUVfU 












* MUtfU 






unon 


















unon 






unon 






unon 




004001 


UORD 


004001 


004002 


.WORD 


004002 


004003 


.WORD 


004005 


010001 


.WORD 


010001 


010002 


• UORO 


010002 


010003 


• UORD 


010003 


020001 


.UORD 


020001 


020002 


.UORD 


020002 


020003 


• UORD 


020003 


040001 


• UORD 


040001 


040002 


.UORD 


040002 


040003 


.UORD 


040003 


100001 


• UORD 


100001 


100002 


.UORD 


100002 


100003 


• UORD 


100003 


177777 


T12TBE: •UORD 





177777 



iLOCAL TEXT MESSAGES FOR TEST 



104 



115 



I - 



101 TST12ID: 



.ASCIZ DMA KMiery AddrMsSng* 



F9 



TSV5 - HARDWARE TESTS MACRO H1113 01-FEB-S4 17:02 
TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES 



SEQ 109 



975 


050226 


105 


157 


156 


T12GETSSR: 


.ASCIZ 


976 


050302 


105 


157 


156 


T12URTSSR: 


.ASCIZ 


977 


050571 


115 


145 


165 


T12nSGBUr: 


.ASCIZ 


978 


030467 


102 


141 


145 


T12BKGN0: 


.ASCIZ 


979 


050555 


105 


170 


160 


T12NINT: 


.ASCIZ 


960 


050646 


127 


162 


151 


T120PR: 


.ASCIZ 


981 


050757 


124 


125 


125 


T12NXn: 


.ASCIZ 



'Contents of TSSR Incorrect Aftor GET STATUS' 

'Contont* of TSSR Incorrect Aftor WRITE CHARACTERISTICS' 

'rioooago Buffor Contonto Incorroct Aftor WRITE CHARACTERISTICS' 

'Bockflreund Pattom Dioturfood By WRITE CHARACTERISTICS' 

'EKpMtod Interrupt Net Rocoivod On WRITE CHARACTERISTICS' 

'Writ* Charactoriotic data in ram do— not Match axoactad' 

'TSSR NXH bit failed to aet Mhen non-exietent metMory addreee specif! 



982 
985 
984 
985 
986 
987 
968 
969 
990 
991 
992 
995 
994 
995 
996 
997 
996 
999 
1000 
1001 
1002 
1005 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1015 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1025 
1024 
1025 
1026 
1027 
1028 
1029 
1050 
1051 



.EVEN 



051046 
051046 
051052 
051056 
051062 
051066 
051072 
051074 
051100 
051104 
051110 
051112 
051116 
051122 
051126 
051152 
051136 
051140 
051142 
051146 
051150 
051154 
051156 
051160 
051164 
051166 
051166 
0S11V2 



005057 
005057 
005057 
042701 
010005 
004757 
013702 
062702 
060102 
042702 
013705 
162705 
010257 
010257 
020205 
101007 
020257 
105007 
005757 
001004 
000424 
162702 
000754 

005737 
001420 



050054* 
050052' 
050056' 
170000 

017106* 
005124* 
000020 

000005 

005150' 

000020 

030034' 

030036* 



005124' 
005134' 

000020 

005154' 



ROUTINE TO CONVERT A TEST PATTERN TO A VALID ADDRESS IN DIAGNOSTIC FREE SPACE 
DIAGNOSTIC FREE SPACE IS BETWEEN THE END OF THE DIAGNOSTIC AND THE 
BEGINNING OF THE SUPERVISOR. THIS IS ALWAYS BELOW 24K. 
IF HEHORY ABOVE 26K SPECIFIED (VIA Rl) THEN PAR 6 IS SET 
TO THE RELOCATION BASE. 

INPUTS: 

RO HIGH ORDER ADDRESS BITS 

Rl LOU ORDER ADDRESS BITS 

OUPTUTS: 

T12PAA6 - ADDRESS BIASED TO PAR6 IF >28K UNDER TEST 
T12HIADD - HIGH OROER ADDRESS IN NON PAR6 FORNAT 
T12LOA0D - LOU ORDER ADDRESS IN NON PAR6 FORHAT 
C BIT - 1 IF GOOD ADDRESS RETURNED 

C BIT - 0 IF TEST PATTERN DID NOT YIELD A VALID ADDRESS 



T12C0NVERT: 








SAVREG 




iSAVE R1-R5 UNTIL NEXT RETURN 




CLR 


T12L0A0D 


laEAR LOU ADDRESS 




aR 


T12HIA00 


laEAR HIGH ADDRESS 




aR 


T12PAR6 


1 CLEAR PAR6 BIASED ADDRESS 




BIC 


#tC<7777>.Rl 


1 FORCE TO LOWER 12 BITS OF ADDRESS 




NOV 


R0.R5 


iSAVE HIGH ORDER ADDRESS BITS 




JSR 


PC.KTOFF 


iSHUTOFF MEMORY HANAGEMENT 




MOV 


FREE.R2 


iGET FIRST FREE ADDRESS 




ADO 


«16..R2 


lIN CASE TEST PATTERN*0 




ADO 


R1.R2 


lAOD IN TEST PATTERN 




BIC 


•5.R2 


tNAKE IT NODULO-4 


25* : 


NOV 


FREEHI.R5 


tGET LAST FREE ADDRESS 




SUB 


•16.. R5 


iSAVE AT LEAST 6 UOROS (IN CASE MESSAGE BUFFER) 




NOV 


R2.T12L0A0D 


iSAVE POSSIBLE LOU ADDRESS 




NOV 


R2.T12PAR6 


iSAVE IT IK PAR6 BIASED TOO 




CMP 


R2.R5 


lis THIS ADDRESS ABOVE FREE SPACE? 




BHI 


55 • 


iBR IF YES 




CMP 


R2.FREE 


lis IT IN FREE SPACE? 




BHIS 


50t 


iBR IF YES- ITS GOOD 




TST 


K TENABLE 


•TESTING ABOVE 28K? 




BNE 


SOI 


iBR IF YES 




BR 


90t 


iBR IF NOT IN FREE SPACE 


55>: 


SUB 


•16.. R2 


•FORCE FIT THE TEST PATTERN 




BR 


25* 


iTRY THIS TEST PATTERN ADDRESS 


501: 


TST 


K TENABLE 


{TESTING ABOVE 28K7 




BEQ 


1001 


iBR IF NO 



TSV5 - HAftOWAftE TESTS MACRO MlllS OirEB-M 17:02 
TEST 3: SUBTEST 4: NXH TO SELECTED INVALID ADDRESSES 



G9 



SEQ 110 



1032 
1033 
1034 

loss 

1056 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
105S 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
106S 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1075 
1074 
1075 
1076 
1077 
1078 
1079 
1060 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 



031174 
031200 
031202 
031206 
031210 
031214 
031216 
031222 
031226 
031230 
031232 
031234 
031236 



0S1240 
031240 
031244 
031250 
051254 
051256 
051262 
051270 
051274 
051500 
051504 
051510 
051512 
051314 
051516 
031320 



005737 
001413 
004737 
010500 
010037 
010201 
004737 
010057 
105405 
000241 
000401 
000261 
000207 



003132' 

017070* 

050052- 

017150' 
050056' 





TST 


KTFLG 




BEG 


90t 




JSR 


PC.KTON 




MOV 


RS.RO 




MOV 


R0.T12HIAD0 




MOV 


R2.R1 




JSR 


PC.SETMAP 




nov 


R0.T12PAR6 




BCS 


lost 


901: 


CLC 






BR 


lost 


loot: 


SEC 




105t: 


RTS 


PC 



I ANY MEMORY ABOVE 28K7 
iBR IF NO 

I TURN ON MEMORY MANAGEMENT 

I GET MIGH ORDER ADDRESS 

I SAVE POSSIBLE MIGH ADDRESS 

tGET COMPUTED LOU ORDER ADDRESS 

I RETURN PAR6 BIASED ADDRESS IN RO 

I COPY PAR6 BIASED ADDRESS 

tBR IF VALID ADDRESS 

laR C BIT FOR FAILURE 

!sET SUCCESS 
iRETURN 



ROUTINE TO READ THE FIRST 2 BYTES FROM RAM 
MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 



INPUT: 



R4 

R5 



OUTPUT: 



CARRY 



ADDRESS OF THE COMMAND PACKET 
FIRST DEVICE UNUUS AOORESS 



SET • RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 



IMPLICIT OUTPUT: 

THE TABLE RAMOATA IS FILLED UITH THE 
DATA HELD IN RAM. 

RAMSIZ SET TO 2 FOR PRAMPKT ROUTINE 
SIDE EFFECTS: 

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 



T12CKRAM: 









SAVREG 




iSAVE THE GENERAL REGISTERS 


012701 


002242* 




MOV 


•RAMDATA.Rl 


1 ADDRESS TO SAVE THE RAM DATA 


012702 


000201 




MOV 


«RMPKTBEG.R2 


iBYTE ADDRESS OF FIRST RAM DATA 


005005 






CLR 


R3 


1 CLEAR THE ERROR FLAG 


004757 


016146' 




JSR 


PC.CWTSSR 


lUAIT FOR SSR 


112765 


000000 000000 




MOVB 


«0.TSDB(R5) 


iSET MAINTENANCE MODE 


004757 


016146' 


lot: 


JSR 


PC.CHKTSSR 


lUAIT FOR SSR TO SET 


010265 


000000 




MOV 


R2.TSD6(R5) 


1 SELECT NEXT RAM ADDRESS 


004757 


016146' 




JSR 


PC.CMKTSSR 


lUAIT FOR SSR TO SET 


116511 


000000 




MOVB 


TSBA(RS).(R1) 


iREAD THE RAM DATA 


122124 






CMP8 


(R1}».(R4)» 


1 COMPARE TO EXPECTED 


001401 






BEQ 


20 1 


1 BRANCH IF OK 


005203 






INC 


R3 


iSET ERROR FLAG 


00S202 




20t: 


INC 


R2 


i ADDRESS OF NEXT RAM LOCATION 


020227 


000203 




CMP 


R2.«RMPKTBEG*C 


lOONE 2 BYTES? 



H9 



TSV5 • HARDWARE T€STS 
TEST 3: SUBTEST 4 



NXH T3*i?eE?^^i'iN«ic5PA83Ri^igi 



SEQ 111 



1069 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
109S 
IW 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 



031524 
031326 
031330 
0313S2 
031334 
031336 
031340 
031346 



031416 
031416 
031422 
031424 
031430 
031432 
031434 
031440 
031442 
031446 
031452 
031454 
031456 



002761 
005703 
001402 
000241 
000401 
000261 
012737 
000207 



000002 002302' 



010401 
005737 
001404 
010300 
004737 
010001 
012700 
052700 
010021 
005021 
000207 



003134' 



017130' 

000017 
100000 



301: 
501 i 



I 



BLT 

TST 

BEQ 

CLC 

BR 

SEC 

nov 

RTS 



10> 

RS 

301 

501 

•2.RAnSIZ 
PC 



iBR IF NO 

lUAS AN ERROR rouNO ? 
iBRANCH Zr NOT 
(CLEAR CARRY TO SHOW (-RROR 
lANO EXIT 

tSHOU GOOD COMPARE 
•SETUP RAnSIZ 
(RETURN 



iROUTINE TO SETUP PACKET TO yRITE CHARACTERISTICS 



031350 






T12SWRTi 


031350 






SAVREG 


031354 


012701 


027770' 


NOV 


031360 


012721 


100004 


NOV 


031364 


012721 


030000' 


NOV 


031370 


005021 




CLR 


031372 


012721 


000010 


NOV 


031376 


012721 


030012' 


NOV 


031402 


005021 




CLR 


031404 


012721 


000016 


NOV 


031410 


005021 




CLR 


031412 


005011 




CLR 


031414 


000207 




RTS 



•T12PACKET.R1 

•100004. (Rl)» 

•T120ATA.(R1)» 

(RD* 

•e.,(Rl)» 

*T12BFR.(R1)* 

CR1)» 

#14.,(R1)» 

(RD* 

(Rl) 

PC 



I SAVE THE REGISTERS 

iSTART OF THE PACKET 

llMITE CHARACTERISTICS WITH ACK 

lAOORESS OF CHAR DATA SLOCK 

lEXTENOEO AOfWESS 

I SIZE OF DATA BLOCK IN BYTES 

{ADDRESS OF MESSAGE BUFFER 

iLENGTH OF MESSAGE BUFFER 



(RETURN 



ROUTINE TO SETUP A GET STATUS COHNAND PACKET AT CURRENT PACKET ADDRESS 

R3 HIGH ORDER PACKET ADDRESS 

R4 LOU ORDER PACKET ADDRESS 

NOTE: R3 IS IGNORED IF KTENABLE FLAG CLEAR 



T12SETGET: 

SAVREG 
NOV 
TST 
BEQ 

nov 

JSR 
NOV 

101: NOV 
BIS 
NOV 
CLR 
RTS 



R4,R1 
KTENABLE 

lot 

R3.R0 

PC.SETHAP 

RO.Rl 

4P.getstatus.ro 
•P. ack.ro 

R0.(R1)» 

(Rl)» 

PC 



(SAVE THE REGISTERS 
(GET LOU ORDER ADDRESS 
(TESTING ABOVE 28K? 
(BR IF NO 

(GET HIGH OWER ADDRESS 

(RETURN ADDRESS BIASED TO PAR6 IN RO 

(GET ADDRESS 

(GET STATUS COHNANO CODE NO IE 
(SET ACK 

(STORE GET STATUS IN PACKET 
(CLEAR UNUSED UORO 
(RETURN 



ROUTINE TO SETUP A CHARACTERISTIC DATA BLOCK AT A TEST ADDRESS 



TSV5 - HAROIMRE TESTS MACRO Ml I 15 01 -FEB -84 17:02 
TEST 5: SUBTEST 4: NXH TO SELECTED INVALID ADDRESSES 



19 



SEQ 112 



1146 


031460 






T12CHAR: 






1147 


051460 






SAVREG 




iSAVE R1-R5 UNTIL NEXT RETURN 


1148 


031464 


012700 


050000' 


nov 


•T120ATA.ro 


iGET T12PACKET DATA POINTER 


114S. 


031470 


013701 


030034* 


nov 


T12L0A0D.R1 


1 ASSUME NOT ABOVE 28K 


1150 


031474 


005737 


003134* 


TST 


K TENABLE 


1 TESTING ABOVE 28K7 


XlSl 


031500 


001402 




BEQ 


101 


iBR IF NO 


11S2 


031502 


013701 


030036* 


nov 


T12PAR6.R1 


iSET TEST ADDRESS ABOVE 28K 


1153 


031506 


012021 




101 : HOV 


(R0)*,(R1)* 


•STORE DATA WORD 1 


1154 


031510 


012021 




nov 


CR0)*.(R1)* 


1 STORE DATA WORD 2 


IISS 


031512 


012021 




nov 


(R0)*.(R1)* 


1 STORE DATA WORD 3 


1156 


031514 


012021 




nov 


(R0)*,(R1)* 


1 STORE DATA WORD 4 


1157 


031516 


012021 




nov 


(R0)*.(R1)* 


1 STORE DATA WORD 5 


1158 


031520 


000207 




RTS 


PC 


•RETURN 


1159 












1160 


031522 






ENDTST 







lUl 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 

1171 
1172 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 



1193 



1194 

1195 
1196 
1197 
1198 
1199 



031S22 
031522 



031524 
031524 



051524 
051530 
051532 
051536 
051542 
031546 
031554 



051554 
051554 
051554 
031556 
051556 
051562 
051564 
051570 
051572 
051576 
031602 
031606 



104401 



005737 
001402 
005237 
012700 
004737 
012737 



104402 

012700 
104441 
005757 
001402 
000157 
004757 
004757 
004737 



L 10042: 



TRAP 



CtETST 



.SBTTL TEST 4: RAN EXERCISER TEST 



i ♦ 
I 



iTHIS TEST USES THE READ AND MRITE RAN (BOTH SINGLE AND 256 
iLOCATIONS) SELECT COOES OF THE URITE SUBSYSTEN NENORY COHMAND 
I TO EXERCISE THE CONTROLLER'S RAH MENORV AND OHA LOGIC 



i 

t - 



002214' 

003400' 
034163* 
016322' 

000005 002216' 



101: 



BGNTST 



TST 
BEQ 
INC 

nov 

JSR 

nov 



TISLOOR: 
t 

!tEST 4. SUBTEST 1 
I 
1 

• 
I 

1 - 



TSTCNT 

lOf 

SKIPT 

•TST15ID.ro 
PC.TSTSETUP 
•5.L00PCNT 



THIS SUBTEST URITES THE ADDRESS 
RAH MENORY SINGLE yORO (8 BITS) 



000000 

005400' 

052054' 
054202' 
034254' 
015604* 



BGNSUB 



SETPRI •PRIOO 



T4: 



I CHECK FOR RUr; MODE 

iBR. IF NOT ONLY PROGRAM RUN 

I SET SKIP sy 

(ASCII MESSAGE TO IDENTIFY TEST 
iDO INITIAL TEST SETUP 
iPERFORH 5 ITERATIONS 



(6 BITS) INTO THE 
MODE 



I////.V////// BEGIN SUBTEST //////////// 
T4.1: 

TRAP COSU6 
iLOUER PRIORITY TO At.LOU INTERRUPTS 



10<: 



TST 
BEQ 
JHP 
JSR 
JSR 
JSR 



SKIPT 

101 

50t 

PC.TISREST 

PC.T15RT2 

PC.SOFINIT 



nov 

TRAP 

I SHOULD WE SKIP THIS SUBTEST 

tBR. IF NOy SKIP REQUIRED 

tSKIP SUBTEST 

I SET COHHAND PACKET 

I SET UP OTHER COHHAND PACKET 

iDO INITIALIZE ON CONTROLLER 



•PRIOO. RO 
CISPRI 



J9 

TSV5 - HAROUARE TESTS MACRO MlllS Ol-FEB-64 17:02 
TEST 4: RAH EXERCISER TEST 



1200 031612 


103405 






8LS 


201 


1204 031614 


010001 






nov 


RO.Rl 


1205 0SI616 








ERROF 


ERRNO . SF lERR . SF IMSC 


0S1616 


104455 










031620 


000621 










031622 


003646' 










031624 


011644* 










1206 031626 






201: 






1207 031626 


012704 


033100' 




nov 


•T15PACKET,R4 


1206 031632 


004737 


010472' 




JSR 


PC.URTCHR 


1209 031636 


103405 






BCS 


231 


1213 031640 


010001 






MOV 


RO.Rl 


1214 031642 








ERRHRD 


ERRNU . URTMSC . SFIMSG 


031642 


104456 










031644 


000622 










031646 


005052' 










0316S0 


011644' 










1215 031652 


012703 


000400 


25<: 


NOV 


•256. .R3 


1216 0316S6 


112737 


000001 


033611' 


NOVB 


•1.T1S8S1 


1217 031664 


112737 


000002 


033610' 


novB 


•2.T15eS0 


1216 031672 






251: 






1219 031672 


010337 


033612' 




nov 


R3.T15S2 


1220 031676 


012704 


033600' 




NOV 


•T15PK2.R4 


1221 031702 


110337 


033614' 




HOVB 


R3.T15S3 


1222 031706 


010465 


000000 




NOV 


R4.TS0B(R5) 


1223 031712 


004737 


016146' 




JSR 


PC.CHKTSSR 


1224 031716 


103407 






BCS 


30* 


1225 031720 


010001 






MOV 


RO.Rl 


1229 031722 








earhro 


ERRNO. T15SSR.PKTSSR 


031722 


1044S6 








031724 


000623 










031726 


033616' 










031730 


011656' 










1230 031752 








ESCAPE 


SUB 


031732 


104410 










031734 


000122 










1231 031736 






30»: 


CKLOOP 




031736 


104406 










1232 












1233 












1234 031740 


005203 






INC 


R3 


1235 031742 


020327 


010000 




CMP 


R3. 410000 


1236 031746 


001351 






BNE 


25t 


1237 031750 


005002 






CLR 


R2 


1238 031752 


005303 






DEC 


R3 


1239 031754 


110337 


033614' 


40»: 


MOVB 


R3.T15S3 


1240 031760 


010337 


033612' 




MOV 


R3.T1SS2 


1241 031764 


112737 


000001 


033610* 


MOVB 


♦I.TISBSO 


1242 031772 


010465 


000000 




MOV 


R4.TS0BCR5) 


1243 031776 


004737 


016146' 




JSR 


PC.CHKTSSR 


1244 032002 


103405 






BCS 


431 


1245 032004 


010001 






MOV 


RO.Rl 


1249 032006 








ERRDF 


ERRNO. T15SSR.PKTSSR 


032006 


104455 








032010 


000^24 










032012 


033616' 










032014 


011656' 











SEQ lis 



I BR IF INIT WAS OK 

{CONTENTS OF TSSR REGISTER 

I FATAL ERROR TSSR WAS NOT OK 

TRAP CtERDF 
.WORD 401 
.MONO SFIERR 
.UORD SFIMSC 

1 SUBROUTINE NEEDS PACKET ADDRESS 

t ISSUE URITE CHARACTERISTICS 

tBR. IF COMMAND ISSUED OK 

I SAVE CONTENTS OF TSSR 

I URITE CHARACTERISTISC FAILED 

TRAP CtERHRO 
.UORD 402 
.UORD URTMSG 
.UORD SFIMSG 

(STARTING ADDRESS FOR RAM URITE 

I SIZE OF TRANSFER 

I URITE RAM "COMMAND" 

(ADDRESS FOR RAM 

t URITE SU8SVS MEM PACKET 

(DATA FOR URITE CADDRESS) 

t ISSUE COMMAND 

tUAIT FOR SSR 

tSR. IF NO ERROR 

I ERROR. SAVE TSSR 

iTSSR NOT CORRECT AFTER URITE SUB MEM 

TRAP CtERHRO 
.UORD 403 
.MM> T15SSR 
UORD PKTSSR 

lOON'T CONTINUE IF ERROR'ON URITE 

TRAP C9ESCAPE 
.UORD L100S0-. 

t SCOPE LOOP 

TRAP CtCLPl 



iNEXT ADDRESS 

t END OF RAM MEMORY CHECK 

iLOOP TILL ALL RAM URITTEN 

i CLEAR OUT R2 HIGH BITS 

I SET BACK TO 7777 

iGET OATm pattern BACK IN SHAPE 

t ADDRESS FOR RAM READ 

(READ RAM COMMAND 

I SEND OUT PACKET ADDRESS TO CONTR. 

iUAIT FOR READY. NON-AMBIGUOUS 

iBR. IF NO PROBLEM 

I SAVE TSSR 

I TSSR NOT CORRECT 

TRAP CSEROF 
.WORD 404 
.UORD T15SSR 
.UORD PKTSSR 



I<9 
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TEST 4: RAM EXERCISER TEST 



1250 


032016 
032016 


104406 


43$ : 


CKLOOP 




1251 


032020 


013701 


033142' 


MOV 


T15BFR»20,R1 


1252 


032024 


010302 




MOV 


R3.R2 


1253 


032026 


120102 




CMPB 


R1,R2 


1254 


01/^030 


001404 




BEQ 


451 


1250 


032032 






ERRHRO 


ERR NO , T 15AM4 , EXPBREC 




032032 


104456 








032034 


000625 










032036 


034075' 










032040 


015312' 








1259 


032042 
032042 




451: 


CKLOOP 




1260 


032044 


005303 




DEC 


R3 


1261 


032046 


020327 


000377 


CMP 


R3.«255. 


1262 


032052 


001340 




BNE 


401 


1263 


032054 
032054 


104406 


501: 


CKLOOP 




1264 


OOO 


104403 




ENOSUB 





I SCOPE LOOP 



iGET RAM READ DATA 
jSET UP FOR COMPARE 
I CHECK WITH DATA WRITTEN 



TRAP 



I BR IF OK. DATA IN 
lURITTEN DATA NOT 



DATA OUT 
TO READ 
TRAP 
.WORD 
.UORD 
.WORD 

I SCOPE LOOP 

TRAP 

I DROP DATA COUNTER (PATTERN) 
I AT BOTTOM YET 
I BR. IF MORE TO CHECK 
{SCOPE LOOP 

TRAP 



SEQ 114 



CICLPl 



CIERHRO 
405 
T15AM4 
EXPBREC 

CICLPl 



CfCLPl 



1265 
1266 
1267 



1266 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 



032060 
032060 
032060 



104402 



BGNSUB 



TEST 4. SUBTEST 2 



iNWWWWWW END SUBTEST WWNWWWW 
L 10050: 

TRAP C»ESUB 



I //////////// BEGIN SUBTEST //////////// 
T4.2: 

TRAP C9BSUB 



THIS SUBTEST URITES RAM WITH ALL ZEROS 

THEN UALKS AN ALL ONES WORD DOWN THROUGH MEMORY 



1277 


032062 


004737 


034202' 


JSR 


1276 


032066 


004737 


034254' 


JSR 


1279 


032072 


004737 


015604' 


JSR 


1280 


032076 


103405 




BCS 


1284 


032100 


010001 




MOV 


1265 


032102 






ERROF 




032102 


104455 








032104 


000626 








032106 


003646' 








032110 


011644' 






1286 


032112 




20»: 




1287 


032112 


012704 


033100' 


MOV 


1288 


032116 


004737 


010472' 


JSR 


1289 


032122 


103405 




BCS 


1293 


032124 


010001 




MOV 


1294 


032126 






ERRHRD 




0S2126 


104456 








032130 


000627 








032132 


005052' 








0S2134 


011644' 






1295 


032136 




2S»: 




1296 


032136 


112737 


000001 033611' 


MOVB 



PC.T15REST 

PC.T15RT2 

PC.SOFINIT 

20$ 

RO.Rl 

ERRNO.SFIERR.SFIMSG 



♦T15PACKET.R4 

PC.URTCHR 

25) 

RO.Rl 

ERRNO.URTMSG.SFIMSG 



n.Tl5BSl 



i RESTORE PACKET FOR WRITE CHARA 

{RESTORE PACKET FOR URT SUB SYS MEM 

tDO INITIALIZE ON CONTROLLER 

iBR IF INIT UAS OK 

(CONTENTS OF TSSR REGISTER 

{FATAL ERROR TSSR UAS NOT OK 

TRAP CtEROF 
.UORD 406 
.UORO SFIERR 
.UORO SFIMSG 

{SUBROUTINE NEEDS PACKET ADDRESS 

{ISSUE WRITE CHARACTERISTICS 

{BR. IF COMMAND ISSUED OK 

(SAVE CONTENTS OF TSSR 

lURITE CHARACTERISTISC FAILED 

TRAP CtERHRO 
.WORD 407 
.WORD WRTMSG 
.WORD SFIMSG 

(SET SIZE OF TRANSFER 1 BYTE 



TSVS - HARDWARE TESTS HACRO H1113 
TEST 4: RAM EXERCISER TEST 



1297 032144 


012704 


033600' 




1298 032150 


012703 


000400 




1299 032154 


112737 


000002 


033610 


1300 032162 


105037 


033614' 




1301 032166 


010337 


033612' 




1302 032172 


010465 


000000 




1303 032176 


004737 


016146' 




1304 032202 


103405 






1305 032204 


010001 






1309 032206 








032206 


104456 






032210 


000630 






032212 


033616' 






032214 


011656* 






1310 032216 








032216 


104406 






1311 








1312 








1313 032220 


005203 






1314 032222 


020327 


010000 




1315 032226 


001357 






1Z16 032230 


005303 






1317 032232 


005002 






1316 032234 


112737 


000001 


033610 


1319 032242 


010337 


033612' 




1320 032246 


010465 


000000 




1321 032252 


004737 


016146' 




1322 032256 


103405 






1323 032260 


010001 






1327 032262 








032262 


104456 






032264 


000631 






032266 


033616' 






032270 


011656' 






1326 032272 








032272 


104406 






1329 032274 


013701 


033142' 




1330 032300 


120102 






1331 032302 


001404 






1335 032304 








032304 


104456 






032306 


000632 






032310 


033773' 






032312 


015312' 






1336 032314 








032314 


104406 






1337 032316 


012702 


000377 




1338 032322 


112737 


000002 


033610 


1339 032330 


112737 


000377 


033614 


1340 032336 


010465 


000000 




1341 032342 


004737 


016146' 




1342 032346 


103405 






1343 032350 


010001 






1347 032352 








032352 


104456 






032354 


000633 






032356 


033616' 







4 17:02 



L9 



SEQ 115 



MOV 


♦T15PK2.R4 


iSET NEU PACKET ADDRESS 


MOV 


«256. ,R3 


1 STARTING ADDRESS IN RAM 


MOVB 


«2.T15BS0 


iURITE RAM COMMAND 


CLRB 


T15S3 


iSET DATA TO 000 


MOV 


R3,T15S2 


1 ADDRESS TO PACKET DATA AREA 


MOV 


R4.TS0B(R5) 


tSEND OUT PACKET A&ORESS 


JSR 


PC.CHKTSSR 


tUAIT FOR SSR 


BCS 


33t 


iBR. IF NO PROBLEM 


MOV 


RO.Rl 


tSAVE TSSR 


ERRHRD 


ERRN0.T15SSR.PKTSSR 


iTSSR NOT CORRECT 



CKLOOP 



I SCOPE LOOP 



TRAP 
.WORD 
.MORO 
.UORO 

TRAP 



C«ER»«0 
408 

T15SSA 
PKTSSR 

CICLPl 



INC 


R3 


iNEXT ADDRESS 


CMP 


R3.M0000 


1 END OF RAM MEMORY CHECK 


BNE 


301 


iBR. MORE RAM TO GO 


DEC 


R3 


iSET BACK TO 7777 


CLR 


R2 


iSET TO ALL ZEROS 


MOVB 


«1.T15BS0 


{READ RAM COMMAND 


MOV 


R3.T15S2 


(ADDRESS TO BE READ TO PACKET 


MOV 


R4.TS08(R5) 


iSEND OUT PACKET ADDRESS 


JSR 


PC.CHKTSSR 


lUAIT FOR SSR TO SET 


BCS 


41$ 


:BR. IF ALL IS WELL 


MOV 


RO.Rl 


iSAVE TSSR 


ERRHRD 


ERRN0.T15SSR. PKTSSR 


iTSSR NOT CORRECT 



CKLOOP 

MOV 
CMP8 
BEQ 
ERRHRD 



T15BFR*20.Rl 

R1.R2 

421 

ERRNO . Tl 5AM3 . EXPBREC 



TRAP C<ERHRD 
.WORD 409 
.WORD T15SSR 
.WORD PKTSSR 

{SCOPE LOOP 

TRAP CICLPl 

I PICK UP READ DATA 

(BOTH SHOULD BE 00000000 BINARY 

iBR. IF DATA IS GOOD 

I CHARACTERISTICS DATA NOT CORRECT 

TRAP CtERHRD 



.WORD 
.WORD 
.WORD 



CKLOOP 




1 SCOPE LOOPER 








TRAP 


MOV 


♦000377. R2 


:SET ALL ONES WORD 




MOVB 


♦2.T15BS0 


1 WRITE RAM COMMAND 




MOVB 


♦000377. T15S3 


lALL ONES PATTERN 




MOV 


R4.TSDBCR5) 


iPASS PACKET ADDRESS TO 


CONTR. 


JSR 


PC.CHKTSSR 


iWAIT FOR SSR 




BCS 


431 


iBR. IF OK CNO ERROR) 




MOV 


RO.Rl 


iSAVE TSSR 




ERRHRD 


ERRNO. T15SSR.PKTSSR 


iTSSR NOT CORRECT 





410 

T15AM3 
EXPBREC 

CICLPl 



TRAP 
.WORD 
.WORD 



CtERHRD 
411 

T15SSR 



M9 



TSV5 
TEST 



- HARDWARE Tl 
4: RAH EXERI 



SIsIr TES?* 



O nill3 01-Fi:B-84 17:02 





032360 


011656' 


1348 


032362 






032362 


104406 


1349 


032364 


112737 


1350 


032372 


010465 


1351 


032376 


004737 


1352 


032402 


103405 


1353 


032404 


010001 


1357 


032406 






032406 


104455 




032410 


000634 




032412 


033616' 




032414 


011656' 


1358 


032416 


013701 


1359 


032422 


120102 


1360 


032424 


001404 


1364 


032426 






032426 


104456 




032430 


000635 




032432 


033672* 




032434 


015312' 


1365 


032436 






032436 


104406 


1366 


032440 


005303 


1367 


032442 


020327 


1368 


032446 


001271 


1369 






1370 


032450 






032450 






032450 


104403 


1371 






1372 


032452 






032452 






032452 


104402 



1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 



431: 


CKLOOP 




1 SCOPE LOOP 


000001 033610' 


novB 


n.Tisaso 


1 SET UP FOR RATI READ 


000000 


MOV 


R4.TS0B(R5) 


1 ISSUE RAM REMO 


016146' 


JSR 


PC.CHKTSSR 


lUAIT FOR SSR TO SET 


BCS 


44$ 


iBR. IF OK (NO ERROR) 




MOV 


RO.Rl 


iSAVE TSSR 




ERROF 


ERRNO. TISSSR.PKTSSR 


iTSSR NOT CORRECT 



.UORD 
TRAP 



SEQ 116 

PKTSSR 
CICLPl 



441: 



45* t 



HOV 
CMPB 
BEQ 
ERRHRD 



CKLOOP 

DEC 
CMP 
BNE 

ENOSUB 



BGNSUB 



T15BFR*20.R1 

R1.R2 

45* 

ERRNO. T1SAH2.EXPBREC 



I PICK UP REC'O DATA 
iCHECK WITH DATA WRITTEN 



TRAP 
.WORD 
.WORD 
.WORD 



CIEROF 
412 
T15SSR 
PKTSSR 



tBR IF OK. DATA IN 
I WRITTEN DATA NOT 



R3 

R3.*2S5. 
40* 



C*ERHR0 
413 
T15An2 
EXPBREC 

CtaPl 



DATA OUT 
TO READ 
TRAP 
.WORD 
.WORD 
.WORD 

I SCOPE LOOP 

TRAP 

tOROP RAM ADDRESS POINTER 
J AT START YET 
iBR. IF nORE RAM TO CHECK 

iWWWVWWW END SUBTEST \\\\\\\\\\\\\ 
L 10051: 

TRAP C*ESUB 

»//////////// BEGIN SUBTEST //////////// 
T4.3: 

TRAP C*BSUL 



TEST 4. SUBTEST 3 



THIS SUBTEST WRITES RAM WITH ALL ONES 

THEN WALKS AN ALL ZEROS WORD DOWN THROUGH MEMORY 



1381 


032454 


005737 


003400' 




TST 


SKIPT 


1382 


032460 


001402 






BEQ 


10* 


1383 


032462 


000137 


033056' 




JMP 


50* 


1384 


032466 


004737 


034202' 


10*: 


JSR 


PC.T15REST 


1385 


032472 


004737 


034254' 




JSR 


PC.T15RT2 


1386 


032476 


004737 


015604' 




JSR 


PC.SOFINIT 


1387 


032502 


103405 






BCS 


20* 


1391 


032504 


010001 






MOV 


RO.Rl 


1392 


032506 








ERRDF 


ERRNO . SFIERR . SFIMSG 




032506 


104455 










032510 


000636 












032512 


003646' 












032514 


011644' 










1393 


032516 






20*: 






1394 


032516 


012704 


033100' 




MOV 


*T1SPACKET.R4 



: CHECK RUN MODE 
iBR. IF NO SKIP 
I SKIP SUBTEST 

(RESTORE PACKET FOR WRITE CHARA 

{RESTORE PACKET FOR WRT SUB SYS MEM 

tOO INITIALIZE ON CONTROLLER 

I BR IF INIT WAS OK 

{CONTENTS OF TSSR REGISTER 

{FATAL ERROR TSSR WAS NOT OK 

TRAP C»EROF 
.WORD 414 
.WORD SFIERR 
.WORD SFIMSG 

{SUBROUTINE NEEDS PACKET ADDRESS 



rSVS - HARDWARE TESTS MACRO H1113 
TEST 4: RAH EXERCISER TEST 



1395 032522 


004737 


010472' 




1396 032526 


103405 






1400 032530 


010001 






1401 032532 








032532 


104456 






032534 


000637 






032536 


005052' 






032540 


011644' 






1402 032542 








1403 032542 


112737 


000001 


033611 


1404 032550 


012704 


033600' 




1405 032554 


012703 


000400 




1406 032560 


112737 


000002 


033610 


1407 032566 


1\2737 


000377 


033614 


1408 032574 


010337 


033612' 




1409 032600 


01v>465 


000000 




1410 032604 


00*V737 


016146' 




1411 032610 


103105 






1412 032612 


010001 






1416 032614 








032614 


104456 






032616 


000640 






032620 


033616' 






032622 


011656' 






1417 032624 








032624 


104406 






1416 








1419 








1420 032626 


005203 






1421 032630 


020327 


010000 




1422 032634 


001357 






1423 032636 


005303 






1424 032640 


112702 


000377 




1425 032644 


112737 


000001 


033610 


1426 032652 


010337 


033612' 




1427 032656 


010465 


000000 




1426 032662 


004737 


016146' 




1429 032666 


103405 






1430 03267C 


010001 






1434 032672 








032672 


104456 






032674 


000641 






032676 


033616' 






032700 


011656' 






1435 C32702 








032702 


104406 






1436 032704 


013701 


033142' 




1437 032710 


120102 






1438 032712 


001404 






1442 032714 








032714 


104456 






032716 


000642 






032720 


033773' 






032722 


015312' 






1443 032724 


012702 


000377 




1444 032730 


012737 


000002 


033610 


1445 032736 


112737 


000377 


033614 



17:02 



SEQ 117 



JSR PC.URTCHR 

BCS 251 

nOV RO.Rl 

ERRHRD ERRNO.MRTnSG.SFinSG 



I ISSUE WRITE CHARACTERISTICS 

iBR. IF COHMANO ISSUED OK 

I SAVE CONTENTS OF TSSR 

I WRITE CHARACTERISTISC FAILED 

TRAP CtERHRD 
.WORD 415 
.WORD WRTHSG 
.WORD SFinSG 



HOVB 


#1.T15BS1 


iSET SIZE TO 1 BYTE 


MOV 


#T15PK2.R4 


iSET NEW PACKET ADDRESS 


nov 


«256. .R3 


1 STARTING ADDRESS IN RAM 


HOVB 


•2.T15BS0 


1 WRITE RAM COMMAND 


MOVB 


♦377.T15S3 


iSET DATA TO 377 


nov 


R3.T15S2 


1 ADDRESS TO PACKET DATA AREA 


MOV 


R4.TS0B(R5) 


iSEND OUT PACKET ADDRESS 


JSR 


PC.CHKTSSR 


iWAIT FOR SSR 


BCS 


33$ 


iBR. IF NO PROBLEM 


MOV 


RO.Rl 


tSAVE TSSR 


ERRHRD 


ERRN0.T15SSR.PKTSSR 


tTSSR NOT CORRECT 



TRAP 
.WORD 
.WORD 



OERHRO 
416 
T15SSR 









.WORD 


PKTSSR 


CKLOOP 




1 SCOPE LOOP 












TRAP 


CICLPl 


INC 


R3 


iNEXT ADDRESS 






CMP 


R3.*10000 


1 END OF RAM MEMORY CHECK 




BNE 


30t 


iBR. MORE RAM TO GO 






DEC 


R3 


iSET BACK TO 7777 






MOVB 


•377. R2 


iSET TO ALL ONES 






MOVB 


•1.T15BS0 


iREAD RAM COMMAND 






MOV 


R3.T15S2 


(ADDRESS TO BE READ TO PACKET 


DATA 


MOV 


R4.TS0B(R5) 


iSEND OUT PACKET ADDRESS 




JSR 


PC.CHKTSSR 


;WAIT FOR SSR TO SET 






BCS 


41» 


;BR. IF ALL IS WELL 






MOV 


RO.Rl 


iSAVE TSSR 






ERRHRD 


ERRNO . T 15SSR . PKTSSR 


iTSSR NOT CORRECT 










TRAP 


OERHRO 








.WORD 


417 








.WORD 


T15SSR 








.WORD 


PKTSSR 


CKLOOP 




i SCOPE LOOP 












TRAP 


CICLPl 


MOV 


T15BFR*20.R1 


(PICK UP READ DATA 






CMP8 


R1.R2 


tBOTH SHOULD BE 11111111 


. BINARY 


BEG 


421 


tBR. IF DATA IS GOOD 






ERRHRD 


ERRNO . T 15AM3 . EXPBREC 


t CHARACTERISTICS DATA NOT CORRECT 






TRAP 


OERHRO 








.WORD 


418 








.WORD 


T15AM5 








.WORD 


EXPBREC 


MOV 


«000377.R2 


iSET ALL ONES WORD 






MOV 


♦2.T15BS0 


1 WRITE RAM COMMAND 






MOVB 


«000377.T15S3 


iALL ONES PATTERN 







BIO 



TSV5 HARDWARE TESTS MACRO Ml 115 
TEST 4: RAM EXERCISER TEST 



01FEB-e4 17i02 



1446 
1447 
1448 
1449 
1453 



1454 

1455 
1456 
1457 
1458 
1459 
146S 



1464 

1465 
1466 
1470 



U7l 

1472 
147S 
1474 
1475 
1476 
1477 



1478 
1479 
1480 
1461 
1482 
1485 



1484 
1485 
I486 
1487 
1489 
1491 
1492 
1495 
1494 
1495 



032744 
032750 
052754 
052756 
052760 
052760 
052762 
052764 
052766 
052770 
052770 
032772 
055000 
055004 
055010 
055012 
055014 
055014 
055016 
055020 
055022 
055024 
055050 
055052 
055054 
055054 
055056 
055040 
055042 
053044 
033044 
033046 
033050 
033054 

033056 
033056 
033056 
033056 



033060 
033064 
033066 
033072 
033072 
033074 



035076 
055100 
055100 
033102 
033104 
033106 



010465 000000 
004757 016146- 
105405 
010001 

104456 
000645 
055616' 
011656' 

104406 

112757 000001 055610* 
010465 000000 
004757 016146' 
105405 
010001 

J 04456 
<'J0644 
055616' 
011656' 

015701 055142* 

120102 

001404 

104456 
000645 
053672* 
015512* 

104406 
005305 

020527 000577 
001271 



104403 



004757 016270* 
103002 

000137 031554* 

104432 

001216 



451 i 



441: 



451: 



501: 



651: 



nov 

JSR 
BCS 

nov 

ERRHRO 



CKLOOP 

novB 
nov 

JSR 
BCS 

nov 

ERRHRD 



nov 
cnPB 

BEQ 



R4.TS06(R5) 
PC.CHKTSSR 
451 
RO.Rl 

ERRNO.TISSSR.PKTSSR 



•1.T15BS0 
R4.TSDB(RS) 
PC.CHKTSSR 
44 > 
RO.Rl 

ERRN0.T15SSR.PKTSSR 



T156FR*20.R1 
R1.R2 
451 



ERRHRD ERRN0.T15An2.EXP6REC 



CKLOOP 

DEC 
CHP 



R5 

R5.9255. 
401 



EM>SUB 



JSR 
BCC 
JMP 
EXIT 



PC.TSTLOOP 
651 

TISLGOP 
TST 



100204 
055110' 
000000 
000010 



iLOCAL STORAGE FOR THIS TEST 
I - 

.BLKB 
T15PACKET: 

.WORD 
■ WORD 
.UORO 
.UORO 



10-«.-TSV267> 

100204 
T15DATA 
0 
8. 



SEQ 118 



iPASS PACKET AOORESS TO CONTR. 

I WAIT FOR SSR 

iBR. IF OK (NO ERROR) 

I SAVE TSSR 

iTSSR NOT CORRECT 

TRAP 
. WORD 
.UORD 
.WORD 



I SCOPE LOOP 

I SET UP FOR RAH READ 
I ISSUE RAH READ 
iWAIT FOR SSR TO SET 
iBR. IF OK (NO ERROR) 
I SAVE TSSR 
I TSSR NOT CORRECT 



TRAP 



♦PICK UP REC'D DATA 
I CHECK WITH DATA WRITTEN 



TRAP 
. WORD 
. WORD 
.WORD 



tBR IF OK. DATA IN 
I WRITTEN DATA NOT 



DATA OUT 
TO READ 
TRAP 
. WORD 
. WORD 
.WORD 

t SCOPE LOOP 

TRAP 

I DROP RAH AOORESS POINTER 

tAT START VET 

iBR. IF nORE RAn TO CHECK 



CIERHRD 
419 

T15SSR 
PKTSSR 

OCLPl 



CIER^ 
420 

T15SSR 
PKTSSR 



CIERMV) 
421 

TISATQ 
EXPBREC 

CICLPl 



END SUBTEST \\\\\\\\\\\\\ 
L10052: 

TRAP CtESUB 



I 00 WE NEED TO ITERATE TEST ? 
iBRANCH IF NOT 
lEXECUTE AGAIN 
lALL DONE THIS TEST 

TRAP 
.WORD 



CtEXTT 
L 10047- 



tCOrtlAND PACKET FOR TEST 

lURITE CHARACTERISTICS COmAND. WITH IE. ACk 
I AOORESS OF CHARACTERISTICS BLOCK 

t STARTING VALUE OF BLOCK SIZE 



TSV5 
TEST 



CIO 



SEQ 119 



1496 
1497 
1496 
1499 

1500 
1501 
1502 
1503 
1504 
1506 
1508 
1509 
1510 
1511 
1512 
1515 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1525 
1524 
1525 
1526 
1527 
1528 
1529 
1550 
1551 
1552 
1555 
1554 
1555 
1556 
1557 
1558 
1559 
1540 
1541 
1542 
1545 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1555 
1554 



055110 
055110 
055112 
055114 
055116 
053122 



055576 
035600 
055600 
055602 
055604 
053606 



035610 
055610 
055611 
055612 
C53614 



035122' 

000000 

000400 

000000 000000 



100206 
055610' 
000000 
000006 



000 
000 
000000 
000000 



053616 


127 


122 


111 


055672 


127 


122 


111 


055775 


127 


122 


111 


054075 


127 


122 


111 


034163 


122 


101 


115 



TlSOATAi 

.UORO 
.UORO 
.UORO 
.UORO 
T15BFR: .BLKU 



T15BFR 
0 

256. 

0.0 

ISO. 



lURZTE SUBSYSTEN rCNORY ':OHHAND PACKET 



T15PK2: 



.BLKB 10-<.-TStf2£7> 



.UORO 
.UORO 
.UORO 
.UORO 



100206 
T15BF2 
0 
6. 



iCHARACTERISTICS DATA BLOCK 
I ADDRESS OF MESSAGE BUFFER 

I LENGTH OF MESSAGE BUFFER 
{MESSAGE BUFFER 



lURITE SUB SYS MEM COMMAND. IE AM) ACK 
I ADDRESS OF SELECT BLOCK DATA 

I SIZE OF DATA PACKET 



.EVEN 

T158F2: 

T15BS0: .BYTE 0 

T15BS1: .BYTE 0 

T15S2: .UORO 0 

T1SS3: .UORO 0 



!lOCAL TEXT MESSAGES FOR TEST 
I - 

TISSSR: .ASCIZ 
TlSAfC: .ASCIZ 
TISAMS: .ASCIZ 
TISATM: .ASCIZ 
TST15ID: 

.EVEN 

t • 



iBSELO AREA 
iBSELl AREA 
iSEL 2 AREA 
I DATA AREA 



•URITE SUBSYSTEM MEMORY Co— nd Net Aee«pt«d' 

'URITE SUBSYSTEM MEMORY COMMAND Failed On AH On— Uerd Read Back' 
•URITE SUBSYSTEM MEMORY COMMAND FaSlad On All Z*ro« Uord R«ad Back 
'URITE SUBSYSTEM MEMORY COMMAND Fallad On AddrMS T««t' 
.ASCIZ 'RAM ExercSMr' 



tROUTINE TO RESTORE COMMAM) PACKET TO START UP (DEFAULT) VALUES 

(URITE SUBSYSTEM MEMORY COMMAND 

I 

I - 



054202 






TlSRESTt 






054202 






SAVREG 




iSAVE THE REGISTERS 


054206 


012701 


055100' 


MOV 


•TlSPACKET.Rl 


1 START OF THE PACKET 


054212 


012721 


100204 


MOV 


4100204. (RD* 


lURITE SUBSYSTEM MEM, UITH ACK. IE 


054216 


012721 


OSSllO* 


MOV 


*T150ATA.CR1)» 


1 ADDRESS OF CHARAISTICS DATA BLOCK 


034222 


005021 




CLR 


(Rl)» 


lEXTENDSD ADDRESS 


054224 


012721 


000010 


MOV 


48.. (RD* 


iSIZE OF DATA BLOCK IN BYTES 


054250 


012721 


055122' 


MOV 


♦T15BFR,(R1)» 


•ADDRESS OF MESSAGE BUFFER 


054254 


005021 




CLR 


(Rl)» 




054256 


012721 


000400 


MOV 


•256.. (RD* 


ILENGTH OF MESSAGE BUFFch 


034242 


005021 




CLR 


(RD* 


054244 


005011 




aR 


(Rl) 




054246 


005037 


055122* 


CLR 


T15BFR 


1 CLEAR 1ST LOC IN MESSAGE SUFFER 


054252 


000207 




RTS 


PC 


1 RE TURN 



T>;v 

TES 



? 4?^WT«Ei&filR tK9'»« 01 -FEB-M 17:02 



DIO 



SEO 120 



1555 
1556 
1557 
1556 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1S66 



1567 
1566 
1569 
1570 
1571 
1572 
1575 
1574 
1575 
1576 
1577 
1576 
1579 
1580 
1561 
1563 
1565 
1564 
1565 
1566 

1591 
1592 
1595 
1594 
1595 
1596 
1597 
1596 
1599 
1600 
1601 
1602 
1605 
1604 
1605 
1606 
1607 
1606 
1609 
1610 
1611 
1612 



054254 
054254 
054260 
054264 
054270 
054274 
054276 
054502 
054504 
054506 
054510 
054512 
054512 
034312 



054514 
054514 
054514 
054520 
054324 
034352 



'l5RT2t 



012701 
012721 
012721 
005021 
012721 
005021 
005021 
003011 
000207 



104401 



055600' 

100206 

055610' 

000006 



SAVREG 

nov 
nov 
nov 
aR 

NOV 
CLR 
CLR 
CLR 
RTS 
ENOTST 



#T15PK2,R1 

•100206. (RD* 

•T158F2.(R1>* 

(Rl)» 

•6..(R1)» 

(RD* 

(Rl)» 

(Rl) 

PC 



(SAVE THE REGISTERS 

•START OF THE PACKET 

lURXTE SUBSrSTEH HEH. UlTH ACK. IE 

I ADDRESS OF DATA BLOCK 

{EXTENDED ADDRESS 

I SIZE OF DATA BLOCK IN BvTES 



iRETURN 



L10047: 



TRAP 



CIETST 



.SBTTL TEST 5: EXTENDED FEATURES SWITCH AND TIMERS A.B 

TEST DESCRIPTION: 

Thi* t««t v«rif !•• th« Invert Ektandad F«atur«« fsmction 
can IeB«e«lly invert th« Extended feature* eMiteh and 
that the internal timer* A and B eperate eorractly. 

TEST STEPS: 



REPEAT FOR LOOPCNT 
BEGIN 

Do Subteet 1 
Do Subteet 2 

END 



Verify Extanded Feature* Snitch 
Verify Timer* A.B 



012700 
004757 
012757 



056572' 
016522' 

000012 002216' 



T16L00Pt 



BGNTST 

nov 

JSR 

nov 



•TST16ID.R0 
PC.TSTSETUP 
•10. .LOOPCNT 



T5:: 

t ASCII MESSAGE TO IDENTIFY TEST 
tOO INITIAL TEST SETUP 
iPERFORN 10 ITERATIONS 



.SBTTL TEST 5: SUBTEST 1: VERIFY EXTENDED FEATURES TEST 



TEST 5: SUBTEST 1: 

SUBTEST DESCRIPTION: 

Thi* aubteet verlf ie* that the Invert Senee of Extended feature* 
Switch function (Write Sub*y*tem Memory. Write ni*e coama n d) 
operatea properly. 

Firot the etate of the Extended Featurea aMitch ia read in the 
meaaaaa packet aupplied by the itrite character i at !e* coaman d . 
Then, the eanae cf the awitch ia looieally inverted. 
A Write character i at ice command ia executed and it ia verified 
that the Extended atatua reoiater (XST4) ia returned Hhen 
in Extended mode, end not returned if not in extended mode. 
The aubteat alao verifie* that apecifying a He**aB* Buffer 



TSV5 - HAROU/WE TtSTS MACRO HlllS Ol-rEB-84 17:02 
TEST 5: SUBTEST 1: VERXFr EXTENDED FEATURES TEST 



ElO 



SEQ 121 



1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
16?3 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 



1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 



1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 



054332 
034332 
0S45S2 



034334 

034334 
034340 
034342 
034344 
0S4S44 
0S4346 
0S43S0 
0S43S2 

034354 
034360 
034364 
034370 
034374 
034410 
034412 
034414 
034414 
034414 



Mith any of bits 21-19 .Mt Mill cauM th« co«Mnw>tf to 
bo rojoetod. 



TEST STEPS: 



BEGIN 



END 



104402 



004737 015604* 
103405 

010001 

104455 
000764 
003646' 
011644' 

004737 037540' 
005037 002222' 
012704 037720' 
004737 010472' 

103407 
010001 



5t: 
I 



lo<t 



Urito to TSSR rogiotor to aoft initiolijco tho controllor 

Do URITE CHARACTERISTICS to chock for Extondotf Footuroo Switch 

IF Extondod Footuroo HorAMiro Sttitch CLEAR 

THEN 

(* Vorify Extoftdod Footuroo OMitch can bo Invartod to SET *) 
Do Urito SuboyatOM Urito Hiocollanooua to SET ExtoAtfad Footuroa. 
00 a URITE CHARACTERISTICS with an oxtondad charactoriatic Mord 
Conparo tho eentrollor ra* to tho oxtondad charactoriatic ««ord 
If Data Mord in eentrollor rmm NOT* to ««ord aont Thon Pnnt Error 
If Haaaaoa Buffor Data Longth NOT* 12. Thon Print Error 
ELSE 

(* Vorify Extondod Footuroa anitch con bo Invortod to CLEAR *) 
Do Urito SubayotOM Urito Miacollanooua to CLEAR Extondad Faaturoo. 
Do a URITE CHARACTERISTICS without an oxtondad charactariatic word 
If Haaaaoa Buffor Data Langth NOT- 10. Thon Print Error 
ENO-IF 

(* Vorify Function Rojoct Mhon Haaaaoa Buffor 21-19 oro non-zoro •) 
Urito to TSSR rooiotor to aoft initiolizo tho controlior 
REPEAT FOR HESSAOE BUFFER ADDRESS bita <21:19> FROH 0 TO 7 
DO a URITE CHARACTERISTICS with a awaaaaa addrooa blt<21:19> non-2oro 
If TSSR torMination coda NOT- Function Rojoct Thon Print Error 
END-REPEAT 



BGNSUB 



I //////////// BEGIN SUBTEST ////////// 
T5.1: 

TRAP C«BSUB 



Urito to TSSR rooiotar to soft initiolizo tho controlior 
PC.SOFINIT 



JSR 
BCS 
NOV 
ERROF 



10 » 
RO.Rl 

ERRNO. SFIERR. SFIHSG 



lURITE TO TSSR TC SOFT INITIALIZE 
I BR IF SOFT INIT OKAY 
tSAVE CONTENTS OF TSSR 
tOEVICE FATAL DURING INIT 

TRAP CtERDF 
.UORO 500 
.UORD SFIERR 
.UORO SFIHSG 

Do URITE CHARACTERISTICS to chock for Extondod F«oturoa Switch 



104455 



121: 



JSR PC.T16REST 
CLR FATFLG 
HOV •T16PACKET.R4 
JSR PC.URTCHR 
FORCERROR 12t 
BCS 15 t 
HOV RO.Rl 
NEXT. ERRNO 

ERROF ERRNO. T USSR. PK TSSR 



iRESTORE PACKET DEFAULTS 
I CLEAR FATAL ERROR FLAG 
iGET THE ADDRESS OF COHHAND PACKET 
I 00 URITE CHARACTERISTICS COHHAND 

iSSOFORCE ERROR IF FORCER- 1 
tBR IF CARRY SET (GOOD RETURN) 
tSAVE CONTENTS OF TSSR 

(DEVICE FATAL SSR FAILED TO SET 

TRAP C«ERDF 



FIO 



TSV5 - MAROUAPE TESTS MACRO HlllS Ol-FEB-04 17:02 
TEST 5r SUBTEST I: VERIFY EXTENDED FEATURES TEST 



SEQ 122 



166S 
1664 

1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 



168S 
1686 

1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 



1699 
1700 

1701 
1702 
1703 
1704 
1705 



034416 
034420 
034422 
034424 
034430 
034430 



034432 
034436 
034444 
034446 
034452 



034456 
034462 
034466 
034472 
034476 
034512 
034514 
034516 
034516 
G34516 
034520 
034522 
034524 
034526 
034532 
034532 



034534 
034542 
034546 
034554 
034562 
034566 
034602 
034604 
034606 
034606 
CS4606 
034610 
034612 
034614 
034616 
034622 
034622 

034624 
034630 
034634 
034640 



000765 

036442' 

011656' 

005237 002222' 
104406 



012701 037742' 

032761 000200 000012 
001402 

000137 035016' 

012703 002764' 



004737 037700' 

012704 040000' 

010465 000000 

004737 016146* 

103407 
010001 



104455 
000766 
036477* 
011656 

005237 002222* 
104406 



012737 125252 002312* 

012704 037720' 

012764 000020 000006 

013737 002312' 037740' 

004737 010472' 

103407 
010001 



104455 
000767 
036442' 
011656' 

005237 002222' 
104406 

016501 000000 
012702 037742' 
062702 000020 



15t! 



201: 
I 



521: 



40t: 



421: 



sot: 
t 

62«i 



INC 

CKLOOP 



FATFLC 



.WORD 501 

.WORD T16SSR 

.WORD PKTSSR 

I SET FATAL ERROR FLAG 

I LOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 



If Ext«nd«4 F«atup«« Hmr^mmrm Switch Clear th«n: 

(* Verify EKt«Ad*d Feature* cm itch can be Inverte<t te SET *) 
REPEAT FOR TEST PATTERNS IN TSTBLK TABLE 

NOV #T16eFR.Rl iNESSAGE BUFFER ADDRESS 

BIT •X2.EXTF.XST2(R1) {EXTENDED KEAIURES SUITCH CLEAR? 

BEQ 20« iBR IF YES 

jnP 2001 I 

NOV tTSTBLXaO. .R3 iSTART OF TEST DATA 

De Urite Subeyete* Urite NieeeLIaneeua to SET Extended Feature*. 



JSR PC.T16SEXT 
NOV •T16PK2.R4 
NOV R4.TS0B(R5) 

JSR PC.CNKTSSR 

FGRCERROR S2t 
BCS 40« 
NOV RO.Rl 
NEXT.ERRND 

ERROT ERRN0.T162SSR.PKTSSR 



INC 

CKLOOP 



FATFLC 



•SETUP PACKET FOR URITE NISC INVERT 
I GET MITE SUBSYSTEM COItMNO PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
I WAIT FOR SSR TO SET 

iBBOFORCE ERROR IF FORCER-1 
I BR IF CARRY SET CGOOD RETURN) 
I SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 

TRAP OEROF 
.UORD 502 
.yORO T162SSR 
.yORD PKTSSR 

(SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 



NOV 
NOV 
NOV 
NOV 
JSR 



00 • WRITE CHARACTERISTICS itith w> enteftde d characteristic Mord 

I SETUP TES* DATA FOR EXTENDED MORD 
iGET T« ADDRESS OF COTflAND PACKET 
t STORE HESSAGE PACKET SIZE 
t STORE TEST DATA IN EXTENDED WORD 
I 00 WRITE CHARACTERISTICS COWIAM) 

iBSDFORCE ERROR IF FORCER-1 
iBR IF CARRY SET CGOOD RETURN) 
tSAVE CONTENTS OF TSSR 



#12S252.DATA 
#T16PACKET.IM 
#16..PK8CNT(R4) 
DATA.T160ATA*10 

421 



FORCEMtOR 
BCS 50» 
NOV RO.Rl 
NEXT.ERRND 

ERRNO. T16SSR .PKTSSR 



INC 

CKLOOP 



FATFLG 



If the TSBA Addree* Register 

NOV TS8A(R5).R1 
NOV •T166FR.R2 
ADD 416.. R2 

FORCERROR 72«.NCTSSR 



{DEVICE FATAL SSR FAILED TO SET 

TRAP CtEROF 
.WORD 503 
.WORD T16SSR 
.WORD PKTSSR 

I SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP CtCLPl 
NOT* Expected Then Print Error 
iGET TS8A REGISTER CONTENTS 
{START OF THE DATA BUFFER 
{EXPECTED CONTENTS OF TSBA 

{BBOFORCE ERROR IF FORCER-1 



rsvS - HARDWARE TESTS 
TEST 5: SUBTEST 1: 



MACRO HI 115 



VERIFY EXTENDED Tsiifulls TE 



-64 



GIO 



02 



1706 
1707 
1708 
1709 



1710 

1711 
1712 
1715 
1714 
1715 
1716 
1717 
171S 



1719 

1720 
1721 
1722 
1725 
1724 
1'25 
1726 
1727 
1726 



1729 

1750 
1751 
1752 
1755 
1734 



1755 

1756 
1757 
1756 
1759 
1740 
1741 
1742 



054650 
054652 
054654 
054654 
054654 
054656 
054660 
054662 
054664 
054664 



054666 
054672 
054676 
054712 
054714 
054714 
054714 
054716 
054720 
054722 
054724 
054724 

054726 
054752 
054756 
054742 
054752 
054754 
054756 
054756 
054756 
054760 
054762 
054764 
054766 
054766 

054770 
054774 
054776 
055000 
055000 
055002 
055004 
055006 
055010 
055010 
055012 



055016 

055016 
055022 



020102 
001404 



104456 

000770 

056610* 

015304* 

104406 



012704 057750' 
004757 011054' 

103404 



104456 

000771 

004741* 

015320* 

104406 

012702 037742* 

016201 000002 

012702 000014 

020102 
001404 



104456 

000772 

056712' 

015504' 

104406 

004757 015604' 

105405 

010001 

104455 
000772 
005646' 
011644* 

104406 

000157 055176* 



004757 057700' 
012704 040000' 



721: 



60t: 

I 
i 



921: 

1001: 
t 



1121: 



CMP R1.R2 
BEQ 60 t 
NEXT.ERRNO 

EfMHRD ERRN0.T16TSBA.FXPREC 



CKLOOP 

Compar* th« controller 
If Data Mord in controller 

MOV •T160ATA.R4 

JSR PC.CKRM12 

FORCERROR 92« 

BCS 1001 

NEXT.ERRNO 

ERRHRD ERRNO.PKTRAM.RAHERR 



to 
rm 



SEQ 125 



I COMPARE EXPECTED TO RECEIVED 
I ERROR IF NOT EQUAL 

I PRINT THE ERROR C EXPO/RECV 

TRAP 
.UORO 
.WORD 
.WORD 

iLOOP CN ERROR. IF FLAG SET 

TRAP 

tho oxtondod choractoriotic Mord 
I NOT" to Mord oont Thon Print Error 
iGET CHARACTERISTIC DATA ADDRESS 
tOOES RAH DATA EQUAL DATA SENT? 

iSttFORCE ERROR IF FORCER -1 
I BR IF YES 



CtERHRD 
504 

716TSBA 
EXPREC 

CSCLPI 



CKLOOP 

If 
MOV 
MOV 
NOV 

FORCERROR 
CMP R1.R2 
BEQ 120t 
NEXT.ERRNO 

ERRHRD ERRN0.T16LEN.EXPREC 



•go Buf for Data Longth 
•TI66FR.R2 

2(R2).R1 
•12.. R2 

112I.N0TSSR 



1201: CKLOOP 



JSR 
BCS 
MOV 
ERROF 



PC.SOFINIT 

1251 

RO.Rl 

ERRNO . SF lERR . SF IMSG 



125* : CKLOOP 

JHP 500« 



I REPORT THE RAM ERROR(S) 

TRAP CtERHRD 
.WORD 505 
.WORD PKTRAM 
.WORD RAMERR 

iLOOP ON ERROR. IF FLAG SET 

TRAP CtCLPl 

NOT- 12. Print Error 

tCET MESSAGE BUFFER ADDRESS 

iGET RECV DATA FIELD LENGTH 

I GET EXPO DATA FIELD LENGTH 

iSSOFORCE ERROR IF FORCER -1 

(COMPARE EXPECTED TO RECEIVED 

(ERROR IF NOT EQUAL 

I PRINT THE ERROR £ EXPD/RECV 

TRAP C«ER»«D 

.WORD 506 

.WORD T16LEN 

.WORD EXPREC 

iLOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 

iWRITE TO TSSR TO SOFT INITIALIZE 

iBR IF SOFT INIT OKAY 

(SAVE CONTENTS OF TSSR 

i DEVICE FATAL DURING INIT 

TRAP CIERDF 
.WORD 506 
.WORD SFIERR 
.WORD SFIMSG 

I LOOP IF SELECTED 

TRAP CICLPl 



OMitch can b* Invar tad to CLEAR *) 



I (* Var ify Extandad Faatui 

200t: 

t Do Writa Suboyatam Writa Miacallanaoua to CLEAR Extandad Faaturaa. 

JSR PC.T16SEXT iSETUP PACKET FOR WRITE MISC INVERT 

MOV •T16PK2.R4 iCET WRITE SUBSYSTEM COTtlAND PACKET 



TSV5 - HARDUARE TESTS MACRO HlllS 
TEST 5> SUBTEST 1: VERIFY EXTENDED Fl 



HIO 



SEQ 124 



1745 
1744 
1745 
1746 
1747 
1748 
1749 



1750 
1751 

1752 
1755 
1754 
1755 
1756 
1757 
1756 
1759 
1760 
1761 



1762 
1763 

1764 

1765 
1766 
1767 
1766 
1769 
1770 



1771 

1772 
1775 
1774 
1775 
1776 
1777 
1778 
1779 
1760 
1781 
1782 
1785 
1784 



055026 
055052 
055056 
055052 
055054 
055056 
055056 
055056 
055060 
055062 
055064 
055066 
055072 
055072 



055074 
055100 
055106 
055112 
055126 
055150 
055152 
055152 
055152 
055154 
055156 
055140 
055142 
055146 
055146 

055150 
055154 
055160 
055162 
055164 
055164 
055164 
055166 
055170 
055172 
055174 
035174 



055176 



010465 000000 
004737 016146' 

103407 
010001 



104455 

000775 

056477* 

011656' 

005257 002222' 
104406 



012704 057720' 
012764 000016 000006 
004757 010472' 

105407 
010001 



104455 
000774 
056442* 
011656' 

005237 002222* 
104406 

015701 057744* 
012702 000012 
020102 
001404 



104456 

000775 

056712* 

015504' 

104406 



252ti 



240t: 



250«: 
t 



2621: 



t 

SOOtt 



055176 012757 000001 002312* S20»: 



055204 
055204 
055210 
055216 



012704 057720' 

012764 000016 000006 

015700 002512' 
000005 



525«i 



tIDV R4,TS0B(R5) 
JSR RC.CHKTSSR 
FORCERROR 2521 
BCS 240t 
WV RO.Rl 
NEXT.ERRND 

ERRDF ERRN0.T162SSR.PKTSSR 



INC 

CKLOOP 



FATFLG 



t 00 • URITE CHARACTERISTICS 

MOV #T16PACKET.R4 
nOV #14..PKeCNT(R4) 
JSR PC.MRTCMR 
FORCERROR 242t 
BCS 250* 
nOV RO.Rl 
NEXT.ERRND 

242t: ERRDF ERRND.T16SSR.PKTSSR 



iSET THE PACKET ADDRESS TO EXECUTE 
lUAIT FOR SSR TO SET 

iBBDFORCE ERROR IF FORCER -1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 

IDEVICE FATAL SSR FAILED TO SET 

TRAP CtERDF 
.UORD 507 
.UORD T162SSR 
.UORD PKTSSR 

I SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 

Mithout an •xt«ntf«d characteristic mord 
iGET THE ADDRESS OF COmAlO PACKET 
I STORE MESSAGE PACKET SIZE 
iDO URITE CHARACTERISTICS COTtMND 

taaOFORCE ERROR IF FORCER-1 
tBR IF CMMV SET (GOOD RETURN) 
tSAVE CONTENTS OF TSSR 



INC 

CKLOOP 



FATFLG 



If Maaaaja Buffar Data Langth 
NOV T16BFR»2.R1 
NOV «10. .R2 
DIP R1.R2 
BEQ 270* 
NEXT.ERRND 

ERR»«ID ERRN0.T16LEN.EXPREC 



270* t CKLOOP 



•DEVICE FATAL SSR FAILED TO SET 

TRAP 

. ygRD 

.UORD 
.UORD 

tSET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP 

NOT- 10. Than Print Error 
iGET RECV DATA FIELD LENGTH 
iGET EXPO DATA FIELD LENGTH 
iCOHPARE EXPECTED TO RECEIVED 
t ERROR IF NOT EQUAL 

{PRINT THE ERROR £ EXPO/RECV 

TRAP 
.UORD 
.UORD 
.UORD 

tLOOP ON ERROR. IF FLAG SET 

TRAP 



CtERDF 
506 
T16SSR 
PKTSSR 



CtCLPl 



CtERHRD 
509 
T16LEN 
EXPREC 

CtCLPl 



(* Varify Function Rajact Mhan nm99mQi» Buffar 21-19 ar« nof^'fro *) 
Urita to TSSR ragiatar to aoft initialixa th« controlUr 

REPEAT FOR MESSAGE BUFFER ADDRESS bita <21tl9> FROM 0 TO 7 

NOV «1.DATA I START AT BITS<21; 19>-001 

DO a URITE CHARACTERISTICS with a waoaaoa addraaa bit<21:19> nonzero 

NOV «T16PACKET.R4 

NOV «14..PKBCNT(R4) 

NOV OATA.RO 

.REPT 3 



I GET THE ADDRESS OF COMNATO PACKET 
•STORE MESSAGE PACKET SIZE 
iGET TEST DATA 



110 



TSV5 • HARDUARd TESTS MACRO Nil IS 01-FEB-S4 17:02 
TEST 5: SUBTEST 1: VERIFY EXTENDED FEATURES TEST 



SEQ 125 



1785 
1706 
1787 
1788 
1789 
1790 
1791 
1792 
1795 
1794 



1795 
1796 

1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 



1808 

1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 



1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 



035230 
035234 
035240 
035244 
035260 
035262 
035264 
035264 
035264 
035266 
035270 
035272 
035274 
035500 
035300 



055502 
035506 
055510 
055514 
035520 
055550 
055552 
055554 
055554 
055534 
055536 
055540 
055542 
055544 
055544 
055546 
055556 
055562 
055370 
035372 

035576 
055576 
055576 
055576 

055400 
055404 
035406 
035412 



010037 037752* 
010465 000000 
004737 016060' 

103407 
010001 



104455 

000776 

056442' 

011656* 

005257 002222* 



104406 



016501 000002 
010102 

042702 000016 

052702 000006 

020102 
001404 



104456 

000777 

057024* 

011656' 

104406 

005257 002512' 
025727 002312' 000007 
101002 

000197 035204' 



104403 

005757 002222' 
001402 

004757 017014' 



542t: 



3S0t: 



3521: 



360* : 



3701: 



4601 1 



ASL 

.ENDR 

MOV 

nov 

JSR 



RO 

R0.T16DATA*2 
R4,TS0e(R5) 
PC.UAITF 

3421 



I SHIFT INTO BITS 21:19 



FORCERROR 
BCS 550 t 
NOV RO.Rl 
NEXT.ERRNO 

ERROF ERRN0.T16SSR.PKTSSR 



INC 

CKLOOP 



FATFLG 



If TSSR t«r«inaitien cod* NOT- 



NOV 
NOV 
BIC 
BIS 

FORCERROR 
CNP R1.R2 
BEQ 5601 
NEXT.ERRNO 

ERRHRO ERRN0.T16REJ.PKTSSR 



TSSRCR5).R1 
R1.R2 
•TERCLS.R2 
•TSREJ.R2 

552«.N0TSSR 



CKLOOP 

FORCEXIT 
INC DATA 
CNP DATA.A7 
BHI 5701 
JNP 525t 
END -REPEAT 

ENDSU8 



570» 



iSTORE BUFFER ADDRESS BITS 21:19 
I SET THE PACKET ADDRESS TO EXECUTE 
lUAIT FOR SSR 

iSaOFORCE ERROR IF FORCER -1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 

I DEVICE FATAL SSR FAILED TO SET 

TRAP CIEROF 
.UORD 510 
.HORO T16SSR 
.UORD PKTSSR 

tSET FATAL ERROR FLAG 

I LOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 

Function Rojoct Thon Print Error 
iGET RECV TSSR 
J COPY RECV TSSR 
{CLEAR TC<2:0> EXPO 
I SET EXPO TC<2sO>- FUNCTION REJECT 

iSaOFORCE ERROR IF FORCER- 1 
lEXPD EQUAL RECV? 
iBR IF YES 

tOEVlCE FATAL SSR FAILED TO SET 

TRAP OERHRD 
.WORD 511 
.WORD T16REJ 
.UORD PKTSSR 

iLOOP ON ERROR. IF FLAG SET 

TRAP OCLPl 

tGET NEXT TST PATTERN 
(DONE ALL DATA? 
I BR IF YES 

tOO ANOTHER TEST PATTERN 



I //////////// END SUBTEST ////////// 
L10054: 

TRAP CIESUB 



TST 
BEQ 

JSR 



FATFLG 
4601 

PC.CKOROP 



I ANY FATAL ERRORS ? 

{BRANCH IF NOT 

{TRY TO DROP THE UNIT 



.SBTTL TEST 5: SUBTEST 2: VERIFY TINERS A.B 



TteST 5: SUBTEST 2: 
I SUBTEST DESCRIPTION: 



JIO 



TSV5 - HARDWARE TESTS HACRO NUIS 01 FEB-84 17:02 
TEST 5: SCBTEST 2: VERIFY TIMERS A.B 

1630 
1831 
1S32 
1833 
1834 
1855 

18S6 I TEST 

1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 

1854 t If 

1855 I If 
1856 



SEQ 126 




eh«ek«d at 1. 28. 53, and 76 uticoMconda. 

STEPS: 



1857 


035412 








0S5412 








035412 


104402 




1858 






1 


1859 


025414 




5$: 


1860 


035414 


004737 


015604* 


1861 


035420 


103405 




1862 


035422 


010001 




1863 


035424 








035424 


104455 






035426 


000777 






035430 


003646' 






035432 


011644* 




1864 








1865 


035434 


004737 


037540' io< : 


1866 


035440 


005037 


002222' 


1867 


035444 


012704 


037720' 


1868 


035450 


012764 


000010 000006 


1869 


035456 


004737 


010472' 


1870 


035462 






1871 


035476 


103407 




1872 


035500 


010001 




1873 


035502 






1874 


035502 




12t: 




035502 


104455 






035504 


001000 






0SSS06 


036442' 






035510 


011656' 




1875 


035512 


005237 


002222' 


1876 


035516 




151: 



Writ* to TSSR 



liatar to aoft initialiM th« centrollar 



Do URITE CHRRACTERISTICS to ootup • Nooooo* Buffor 
(• Vorlfy TiMoro A.B aftor RESET TirCR with 0 aicroooeond daloy *) 



Do 
Do 



1 wtcroaacood da lay 



Urita Control RESET TIHER with 
Urita Suteyataa READ STATUS 
If TiMar A NOT- 0 Than Print Error 
If TiMor B NOT* 0 Than Print Error 

(• Varify TiMara A.B aftar RESET TIHER Mith 28 microaacond dalay •) 
Do a Urita Control RESET TIMER Mith 28 mieroaacond dalay 
If TiMar A NOT- 1 Than Print Error 
If TiMar B NOT- 1 Than Print Error 

Do a Urita Control RESET TIMER with 53 Mieroaacond dalay 
If TiMar A NOT- 0 Than Print Error 
If TiMar B NOT- 1 Than Print Error 

Do a Urita Control RESET TIMER with 78 Mieroaacond dalay 



TiMar A NOT- 
TiMar B NOT- 



1 Than Print Error 
0 Than Print Error 



BGNSUB 



I //////////// BEGIN SUBTEST ////////// 
T5.2: 

TRAP C IB SUB 

Urita to TSSR rogiatar to aoft initializa tha controllar 



JSR PC.SOFINIT 

BCS 10» 

NOV RO.Rl 

ERROF ERRNO.SFIERR.SriMSG 



Do URITE CHARACTERISTICS to 

JSR PC.T16REST 

CLR FATFLG 

MOV ♦T16PACKET.R4 

MOV #8..PKBCNT(R4) 

JSR PC.URTCHR 

FORCERROR 12t 

3CS 15t 

MOV RO.Rl 

NEXT.ERRNO 

ERROF ERRN0.T16SSR.PKTSSR 



INC 

CKLOOP 



FATFLG 



lURITE TO TSSR TO SOFT INITIALIZE 

iBR IF SOFT INIT OKAY 

I SAVE CONTENTS OF TSSR 

{DEVICE f'ATAL DURING INIT 

TRAP CIEROF 
.UORO 511 
.UORO SFIERR 
.UORO SFinSG 

itup a Maaaaoa Buf far 

t RESTORE PACKET DEFAULTS 

t CLEAR FATAL ERROR FLAG 

iGET THE ADDRESS OF COHHAND PACKET 

iHESSAGE PACKET SIZE NO EXTEND 

lOO URITE CHARACTERISTICS COMMAND 

tOSOFORCE ERROR IF FORCER- 1 
iBR IF CARRY SET (GOOD RETURN) 
tSAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 

TRAP CtEROF 
.UORO 512 
.UORO T16SSR 
.UORD PKTSSR 

{SET FATAL ERROR FLAG 
{LOOP ON ERROR. IF FLAG SET 



KIO 



TSV5 - HARDWARE TESTS 
TEST 



MACRO Nil 13 
S: SUBTEST 2: VERIFY TIMERS A.B 



0l-FEB-e4 17;02 



SEb 127 





035516 


104406 




1677 








1876 








1679 








1680 


035520 


012700 


000001 


1861 


035524 


013701 


036562' 


1862 


035530 


004737 


037652* 


1865 


035534 


012704 


AA AAAA ( 

040000* 


1684 


035540 


A • A^ ^ K 

010465 


AAAAAA 

000000 


1835 


035544 


AAA ^ V ^ 

004737 


A« ^ • A^ « 

016146' 


1666 


035550 






1887 


035564 


• AVA A*V 

103407 




« AAA 

1886 


035566 


A1 AAA« 

010001 




4 AAA 

1689 


AVKK ^A 

035570 






1690 


035570 








avcc "Ta 

035570 


104455 






035572 


OOlOOl 






035574 


036477* 






035576 


011656' 




1891 


035600 


005237 




189< 


A«g^ A^ 

035o04 








035604 


« AA A A^ 

104406 




« AAV 

1893 








• AAA 

1894 








« A AC 

1895 


AVCr^ AJT 

035606 


AAC AA*^ 

005002 




« AA^ 

1896 


035610 


042702 


AAAA • A 

000010 


% AA^ 

1897 


035614 


AA ^^A*% 

042702 


AAAAAA 

000004 


% AAA 

1898 


AVC^ '>A 

035620 


A4 A^AA 

012700 


A9 A * 

037762* 


^ BOO 

1699 


035624 


A« £AA« 

016001 


AAAAAA 

000002 


1 A^J% 

1900 


AVC^ VA 

035630 


Ail A7A< 

042701 


177763 


« AA« 

1901 


035634 






1902 


035644 


020201 








AA1 AAA 




1904 


03S6S0 






1905 


035650 








035650 


104456 






035652 


001002 






035654 


037141' 






035656 


015362* 




1906 


035660 








035660 


104406 





TRAP 



CtCLPl 



32$: 



40»: 

t 
I 



72»: 



801: 



1907 
1906 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 



035662 


012700 


000001 


035666 


013701 


036364' 


035672 


004737 


037652' 


035676 


012704 


040000' 


035702 


010465 


000000 


035706 


004737 


016146' 


035712 






035726 


103407 




035730 


010001 




035732 






035732 






035732 


104455 




035734 


001003 




035736 


036477* 





1121 i 



(* Verify TiiMP* A.B aft*P RESET TIMER n\th 1 mlcroMcond d*lay *) 
Oo a Unit* Control RESET TIMER with 1 microaacond da lay 



MOV 
MOV 
JSR 
MOV 
MOV 
JSR 



«MS.RSD.R0 
T16D01,R1 
PC.T16WMISC 
«T16PK2.R4 
R4.TSDB(RS) 
PC.CHKTSSR 
321 



FORCERROR 
BCS 40 t 
MOV RO.Rl 
NEXT.ERRNG 

ERROF ERRN0.T162SSR.PKTSSR 



iRESET TIMER COMMAND 
il MICROSECOND DELAY 
I SETUP T16PK2 COMMAND PACKET 
iGET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
tWAIT FOR SSR TO SET 

188OFORCE ERROR IF FORCER-1 
16R IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



INC 

CKLOOP 



FATFLG 



0 
0 



Than 
Than 



Print 
Print 



If Ti«ar A NOT- 
If Timar B NOT- 
CLR R2 
BIC #S2.ATIM.R2 
BIC *S2.BTIH.R2 
MOV •T166FSTA.ro 
MOV 2(R0).R1 
BIC •tC<S2.ATin!S2.BTin>.Rl 
FORCERROR 72I.N0TSSR 
CMP R2.R1 
BEQ 80> 
NEXT.ERRNO 

ERRHRD ERRN0.T16T01.TIMEXP 



lOEVlCE FATAL SSR FAILED TO SET 

TRAP 
. WORD 
. WORD 
.WORD 

tSET FATAL ERROR FLAG 
I LOOP ON ERROR. IF FLAG SET 

TRAP 

Error 
Error 

tINIT EXPO 
•TIMER A EXPD-0 
I TIMER B EXPO-0 
tGET RECV READ STATUS 
(GET RECV BYTE 2 
•SAVE TIMER A:B RECV ONLY 



CIERDF 
513 

T162SSR 
PKTSSR 



CICLPl 



CKLOOP 



Oo a Urita Control RESET 
MOV «MS.RS0.R0 
nOV T 16028. Rl 
JSR PC.T16WMISC 
MOV •T16PK2.R4 
MOV R4.TS06(R5) 
JSR PC.CHKTSSR 
FORCERROR 112$ 
BCS 120« 
MOV RO.Rl 
NEXT.ERRNO 

ERROF ERRNO . T162SSR . PKTSSR 



I EXPO EQUAL RECV? 
iBR IF YES 

t REPORT ERROR 



tLOOP ON ERROR. IF 



TRAP 
. WORD 
. WORD 
.UORD 
FLAG SET 
TRAP 



CIERHRO 
514 

T16T01 
TIMEXP 

CICLPl 



TIMER Mith 28 wicroaacon d dalay 

I RESET TIMER COMMAND 
I 28 MICROSECOND DELAY 
I SETUP T16PK2 COMMAND PACKET 
I GET WRITE SUBSYSTEM COTflAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
tUAIT FOR SSR TO SET 

(8BDF0RCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 

iDEVICE FATAL SSR FAILED TO SET 

TRAP CtEROF 
.WORD 515 
.WORD T162SSR 



LIO 



TSV5 • HAROUARE TESTS MACRO H1113 01 FEB 64 17:02 
TEST 5: SUBTEST 2: VERIFY TIMERS A.B 



INC 

CKLOOP 





035740 


011656' 






1920 


035742 


005237 


002222' 




1921 


035746 
035746 


104406 




1201: 


1922 








i 


1923 








1 


1924 


035750 


005002 




1925 


035752 


052702 


000010 




1926 


035756 


052702 


000004 




1927 


035762 


012700 


037762' 




1928 


035766 


016001 


000002 




1929 


035772 


042701 


177763 




1930 


035776 








1931 


036006 


020201 






1932 


036010 


001404 






1933 


036012 








1934 


036012 
036012 
036014 
036016 
036020 


104456 

001004 

037240' 

015362' 




172$: 


1935 


036022 
036022 


104406 




180t: 



1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 



1949 
1950 

1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 



036024 


012700 


000001 


036030 


013701 


036366' 


036034 


004737 


037652' 


036040 


012704 


040000' 


036044 


010465 


000000 


036050 


004737 


016146' 


036054 






036070 


103407 




036072 


010001 




036074 






036074 






036074 


104455 




036076 


001005 




036100 


036477' 




036102 


011656' 




036104 


005237 


002222' 


036110 






036110 


104406 





036112 


005002 




036114 


042702 


000010 


036120 


052702 


000004 


036124 


012700 


037762 


036130 


016001 


000002 


036134 


042701 


177763 


036140 






036150 


020201 




036152 


001404 




036154 






036154 






036154 


104456 





212 «: 



220$: 

t 
I 



FATFLG 



If Tinwr A NOT- 1 
If Tim«r B NOT- 1 

CLR 
BIS 
BIS 
MOV 
MOV 
BIC 

FORCERROR 
CMP R2.RI 
BEQ 180» 
NEXT.ERRNO 

ERRHRD ERRNO . T16T28 . TIHEXP 



CKLOOP 



Th«n Print 
Th«n Print 

R2 

•S2.ATIM.R2 
♦S2.BTIM.R2 
•T166FSTA.ro 
2(R0).R1 

«tC<S2.ATiniS2.BTIM>. 
172I.N0TSSR 



.WORD 

I SET FATAL ERROR FLAG 
I LOOP ON ERROR. IF FLAG SET 

TRAP 

Error 
Error 

lINIT EXPD 
J TIMER A EXPD-1 
I TIMER B EXPD-1 
(GET RECV READ STATUS 
iGET RECV BYTE 2 
Rl I SAVE TIMER A:B RECV ONLY 
iSSO 

I EXPO EQUAL RECV? 
tSR IF YES 



SEQ 128 

PKTSSR 

C«CLP1 



t REPORT ERROR 



iLOOP ON ERROR. 



TRAP 
.WORD 
.WORD 
.WORD 
IF FLAG SET 
TRAP 



CtERHRO 
516 

T16T28 
TIMEXP 

c«api 



Do a Writ* Control RESET TIMER m 
MOV «MS.RSO.RO 
MOV T16053.R1 
JSR PC.T16UMISC 
MOV #T16PK2.R4 
MOV R4.TS0B(R5) 
JSR PC.CHKTSSR 
FORCERROR 2121 
BCS 220t 
MOV RO.Rl 
NEXT.ERRNO 

ERRDF ERRNO. T162SSR,PKTSSR 



ith 53 nicroMcond delay 

iRESET TIMER COMMAND 

1 53 MICROSECOND DELAY 

I SETUP T16PK2 COMMAND PACKET 

I GET URITE SUBSYSTEM COMMAND PACKET 

I SET THE PACKET ADDRESS TO EXEOJTE 

lUAIT FOR SSR TO SET 

tSSDFORCE ERROR IF FORCER-1 
I BR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



I DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.UORD 
.UORD 

INC FATFLG tSET FATAL ERROR FLAG 

CKLOOP {LOOP ON ERROR. IF FLAG SET 

TRAP 

Thon Print Error 
Than Print Error 

iINIT EXPD 
(TIMER A EXPD-0 
I TIMER B EXPD-1 
I GET RECV READ STATUS 
I GET RECV BYTE 2 
I SAVE TIMER A:B RECV ONLY 
I S8D 

lEXPD EQUAL RECV? 
iBR IF YES 



0 
1 



272 «i 



If Timor A NOT- 
If Timor B NOT- 

CLR R2 
BIC ♦S2.ATIM.R2 
BIS «S2.BTIM.R2 
MOV ♦T16BFSTA,R0 
MOV 2(R0).R1 
BIC ♦tC<S2.ATIM!S2.BTIM>,Rl 
FORCERROR 272».N0TSSR 
CMP R2.RI 
BEQ 2801 
NEXT.ERRNO 

ERRHRD ERRNO. T16T53. TIMEXP 



OERDF 
517 

T162SSR 
PKTSSR 



OCLPl 



t REPORT ERROR 



TRAP 



C*ERHRO 



MIO 



TSVS • HARDWARE TESTS 
TEST 5: SUBTEST 2: 



VERlPf??ri?Ai^X.B 



01 -FEB -84 17:02 



SEQ 129 





036156 


001006 
037340' 










056160 










036162 


015362' 








1964 


036164 
036164 


104406 




280(: 


CKLOOP 


1965 








t 


Do a Unta Control RESET TIMER 


1966 


036166 


012700 


000001 




MOV OflS.nSOtRO 


1967 


036172 


013701 


036370' 




MOV T16078,R1 


1966 


036176 


004737 


0S7652' 




JSR PC.T16UniSC 


1969 


036202 


012704 


040000' 




MOV *T16PK2.R4 


1970 


036206 


010465 


000000 




MOV R4.TS06(R5) 


1971 


036212 


004737 


016146' 




JSR PC.CHKTSSR 


1972 


036216 








FORCERROR 3121 


1973 


036232 


103407 






BCS 320 t 


1974 


036234 


010001 






MOV RO.Rl 


1975 


09o29e 








kiCVT CDDUn 

Mb A 1 • cRRNU 


1976 


036236 
036236 
036240 
036242 
036244 


104455 

001007 

036477' 

011656' 




3121: 


ERROF ERRNO . T 162SSR . PKTSSR 


1977 


036246 


005237 


002222' 




INC FATFLG 


1978 


036252 
036252 


104406 




320>: 


CKLOOP 



1979 
1960 
1981 
1962 
1983 
1964 
1965 
1966 
1987 
1966 
1969 
1990 
1991 



1992 

1993 
1994 



1995 
1996 
1997 
1996 
1999 
2000 
2001 
2002 
2003 
2004 



036254 
036256 
036262 
036266 
036272 
036276 
036302 
036312 
036314 
036316 
036316 
036316 
036320 
036322 
036324 
036326 
036326 

036330 
036330 
036330 

036332 
036336 
036340 
036344 
036350 
036352 
036356 



005002 

052702 000010 

042702 000004 

012700 037762' 

016001 000002 

042701 177763 

020201 
001404 



104456 
001010 
037440' 
015362' 

104406 



104403 

005737 00222^' 
001402 

004737 017014' 
004737 016270' 
103002 

000137 034332' 



.WORD 518 
.WORD T16TS3 
.WORD TIHEXP 
I LOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 

Mith 78 nicroMCon^ d«lay 
I RESET TIMER CONNAND 
1 78 MICROSECOND DELAY 
I SETUP T16PK2 COMMAND PACKET 
I GET WRITE SUBSYSTEM COMMAND PACKET 
tSET THE PACKET ADDRESS TO EXECUTE 
tWAIT FOR SSR TO SET 

tSBOFORCE ERROR IF FORCER- 1 
I BR IF CARRY SET (GOOD RETURN) 
tSAVE CONTENTS OF TSSR 



i If Tiflwr A NOT- 1 Th«n Print 

I If Tinwr B NOT- 0 Th«n Print 

CLR R2 
BIS *S2.ATIM.R2 
BIC «S2.BTIM.R2 
MOV «T16BFSTA.R0 
MOV 2(R0).R1 
BIC •tC<S2.ATIM!S2.BTIM>.Rl 
FORCERROR 372t.N0TSSR 
CMP R2.R1 
BEG 360$ 
NEXT. ERRNO 
3721: ERRHRO ERRNO. T16T76.TIMEXP 



380«: CKLOOP 
ENDSUB 

TST 
BEQ 
JSR 

460»: JSR 
BCC 
JMP 

465»: 



tOEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

iSET FATAL ERROR FLAG 
I LOOP ON ERROR. IF FLAG SET 

TRAP 

Error 
Error 

tINIT EXPO 
t TIMER A EXPO-1 
t TIMER B EXPD-0 
I GET RECV READ STATUS 
tGET RECV BYTE 2 
I SAVE TIMER A:B RECV ONLY 
t88D 

lEXPD EQUAL RECV? 
I BR IF YES 



OEROF 
519 

T162SSR 
PKTSSR 



OCLPl 



(REPORT ERROR 



(LOOP ON ERROR. IF FLAG 



TRAP 

.WORD 

.WORD 

.WORD 

SET 

TRAP 



C«ERHRD 
520 
T16T78 
TIMEXP 

C$CLPl 



I //////////// 



END SUBTEST ////////// 
L10055: 

TRAP CfESUB 



FATFLG 
460> 

PC.CKDROP 
PC.TSTLOOP 
465« 
T16L00P 



(ANY FATAL ERRORS ? 

I BRANCH IF NOT 

I TRY TO DROP THE UNIT 

I SHOULD WE DO ITERATIONS? 

iBR IF NO 

(LOOP UNTIL ITERATIONS DONE 



NIO 



TSVS • HARDWARE TESTS MACRO MlllS Ol-FEB-64 17:02 
TEST 5: SUBTEST 2: VERIFY TIMERS A.B 



2005 



2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 

2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 



036356 
036356 
036360 



036362 
036364 
036366 
036370 



036372 
036442 
036477 
036543 
036610 
036712 
037024 

037141 
037240 
037340 
037440 



037540 
037540 
037544 
037550 
037554 
037556 
037562 
037566 
037570 
037574 
037576 
037600 
037604 



037606 
037606 
037612 
037616 
037622 
037624 
037626 
CS76S0 



104432 
001534 



000001 
000040 
000076 
000142 



012700 
012720 
012720 
005020 
012720 
012720 
005020 
012720 
005020 
005010 
005037 
000207 



012701 
012702 
105021 
005302 
003375 
000207 



EXIT 



TST 



037720' 

100004 

037730* 

000012 
037742* 

000024 



037742* 



037742* 
000026 



; LOCAL STORAGE FOR THIS TEST 

T 16001: .WORD 
T 16028: .WORD 
.WORD 
.UORD 



T 16053: 
T 16078: 

I LOCAL TEXT MESSAGES FOR TEST 



1 

40 
76 
142 



SEQ 130 



;////////// EXIT TEST ////////// 

TRAP CIEXIT 
.MOPT L 10053 



il MICROSECOND DELAY (ACTUALLY .8 MIC) 
I 28 MICROSECOND DELAY (.8 MICROS PER) 
t53 MICROSECOND 
1 78 MICROSECOND 



105 


170 


164 


TST 1610: 


127 


122 


111 


T16SSR: .ASCIZ 


127 


122 


111 


T162SSR:.ASCIZ 


127 


122 


111 


T163SSR:. ASCIZ 


102 


165 


163 


T16TSBA:. ASCIZ 


104 


141 


164 


T16LEN:. ASCIZ 


124 


123 


123 


T16ftEJ:.ASCIZ 


124 


151 


155 


T16T01:. ASCIZ 


124 


151 


155 


T16T28:. ASCIZ 


124 


151 


155 


T16T53: .ASCIZ 


124 


151 


155 


T16T78:. ASCIZ 








.EVEN 



.ASCIZ *Ext«n4*4 F«atur«« SMiteh and Tinwr* A.B' 
'URITE CHARACTERISTICS Failad' 
•URITE SUBSYSTEM (Urita Miac) Fa i lad* 
* URITE SUBSYSTEM (Raad Statua) Fa i lad' 

'Bua Addraaa Ragiatar (TSBA) Ineorract aftar Urita Charactar iatica' 

'Data Fiald Langth in Maaaaga Buf far Ineorract aftar Urita Character i sties' 

'TSSR Function Rajaet Not Ratumad Uhan Non-Ex iatant Buffar Address Specific 

'Timar A.B Incorrect aftar Reaat Tiiiar Mith 1 microsecond Delay' 
'Tinar A.B Incorrect aftar Reaat Timer Mith 28 microaacond Delay' 
'Timer A.B Ineorract aftmr Reeet Timer Mith 53 microaeeond Delay' 
'Timer A.B Incorrect after Reeet Timer Mith 78 mieioaecond Delay' 



SET DEFAULT PACKET 



t* 
i 

fl6REST: 



MOV «T16PACKET.R0 

MOV #100004. (RO)* 

MOV «T160ATA.(R0)» 

CLR (RO)* 

MOV *10..(R0)« 

MOV «T16BFR.(R0)» 

CLR (R0)» 

MOV «20..(R0)« 

CLR (RO)* 

CLR (RO) 

CLR T16BFR 

RTS PC 



i ♦ 



CLEAR MESSAGE BUFFER 



T16CLR6UF: 

SAVREG 

MOV 

MOV 

101: CLRB 
DEC 
BGT 

Rrs 



«T168FR.R1 

♦T16BEND-T16BFR.R2 

CRD* 

R2 

10» 

PC 



{PACKET ADDRESS 

t URITE CHARACTERISTICS WITH ACK 

t ADDRESS OF CHAR DATA BLOCK 

{EXTENDED ADDRESS 

•SIZE OF MESSAGE PACKET 

(MESSAGE BUFFER ADDRESS 

{CLEAR EXTENDED BUFFER ADDRESS 

{LENGTH OF MESSAGE BUFFER 

{CLEAR ESS.ENB.EAI.ERI 

{CLEAR EXTENDED FEATURES UORD 

{CLEAR 1ST LOCATION IN MESSAGE BUFFER 

> 



(SAVE R1-R5 UNTIL NEXT RETURN 

(GET MESSAGE BUFFER ADDRESS 

(SIZE OF MESSAGE BUFFER IN BYTES 

(CLEAR A BYTE 

(DONE? 

(BR IF NO 

(RETURN 



Bll 



TSVS HARDWARE TESTS HACRO MlllS 01 FEB-64 lltOS 
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SEQ 131 





























W^ W«#C 


0047S7 

WW^ • • 




0B7636 

t w«^w 


012700 


t WW 


037642 


112720 

A AC ■ CW 


2067 


037646 


105010 

A W^W AW 


206A 


0S76S0 


000207 

wvwcw • 


2069 






2070 






2071 






2072 






2075 






2074 






2075 






2076 






2077 






2078 


037652 




2079 


037652 




2060 


037656 


004737 


20S1 


037662 


012702 

WAK • WK 


2082 


037666 


112722 

A AK ■ *i 


2083 


037672 


110022 


2084 


037674 


110112 

A AWA AC 


208S 


OS7676 


WWKV ff 








2087 






2088 






2089 


OS7700 




2090 

^W *M 


OS7700 


012700 

VAC • 


2091 


OS7704 


112720 

4 AC ff Cw 


2092 


037710 


112710 

A AC ff AV 


2093 


037714 


WWCV ff 


2094 






2095 






2096 






2097 






2099 


037716 

W«# f 9 AW 




2101 






2102 






2103 






2104 


037720 




2105 


037720 


100004 


2106 


037722 


037730' 


2107 


037724 


000000 


2108 


037726 


000012 


2109 






2110 


037730 




2111 


037730 


037742- 


2112 


037732 


000000 


2113 


037734 


000024 


2114 


037736 


000000 


2115 


037740 


000000 


2116 






2117 






2118 







I ♦ 
I 

T16SRD: 



SETUP T16PK2 PACKET FOR READ STATUS 



JSR PC.T16CLR6UF 

nov •T160T2.ro 

nOVB «PW.RDSTATUS.(RO)» 

CLRB (RO) 

RTS PC 



SETUP T16PK2 PACKET FOR URITE MISC. 



iCLEAR MESSAGE BUFFER 

lURITE SUBSYSTEM DATA BUFFER 

I STORE READ STATUS COMMAND IN BSELO 

I CLEAR 6SEL1 

•RETURN 



IHPOT: 

RO 
Rl 

tl6UMISC: 

SAVREG 

JSR 

NOV 

NOVB 

NOVB 

NOVB 

RTS 

t*SETUP Ti6PK2 
U6SEXTt 

NOV 
NOVB 
NOVB 
RTS 



CONTAINS URITE MISC FUNCTION CODE (BSELl) 
CONTAINS DELAY (TIMES BOO NS) FOR BSEL2 



PC.T16aRBUF 

•T16DT2.R2 

•PU.UMISC.(R2)* 

R0.(R2)* 

R1.(R2) 

PC 



iSAVE Rl-RS UNITL NEXT RETURN 

laEAR MESSAGE BUFFER 

lURITE SUBSYSTEH DATA BUFFER 

t STORE URITE MISCELLANEOUS IN BSELO 

I STORE URXTE NISC CODE IN BSELl 

1 STORE DELAY (RESET TItCR) IN BSEL2 

t RETURN 



PACKET FOR URITE MISC. INVERT EXTENDED FEATURES SUITCH 



•T16DT2.ro 
•PU.UMISC.(RO)* 
«nS.EXT.(RO) 
PC 



tWITE SUBSYSTEM DATA BUFFER 

I STORE URITE MISCELLANEOUS IN BSELO 

I STORE INVERT EXTENDED FEATURES IN BSELl 

iRETURN 



•BLKB lO-<.-TSV267> 
luRITE CHARACTERISTICS COMHAND PACKET 



ri6PACKET: 

.UORD 
.UQRD 
.UQRO 
.UORD 



100004 

T16DATA 

0 

10. 



T16DATA: 



.UORD T16BFR 

.UORD 0 

.UORD 20. 

.UORD 0 

.UORD 0 



iCOMHAND PACKET FOR TEST 

lURITE CHARACTERISTICS COTtlAND. UITH ACK 

{ADDRESS OF CHARACTERISTICS BLOCK 

•MESSAGE PACKET SIZE 

iCHMACTERISTICS DATA BLOCK 
I ADDRESS OF MESSAGE BUFFER 

t LENGTH OF MESSAGE BUFFER 
lESS.ENB.EAI.ERI 
•EXTENDED FEATURES UORD 



•MESSAGE BUFFER 



Cll 



SEQ 152 



2119 
2120 
2121 
2122 
212S 
2124 
2125 
2126 
2127 
2120 
2129 
2130 
2131 
2132 
2133 
2135 
2137 
2136 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2146 
2149 
2150 



2151 
2152 
2153 
2154 
2155 
2156 
2157 
2156 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2166 
2169 
2170 
2171 
2172 
2173 
2174 



037742 
037742 
037744 
037746 
037750 
037752 
037754 
037756 
037760 
037762 
037770 



037770 
040000 
040000 
040002 
040004 
040006 

040010 
040010 
040011 
040012 
040014 



040114 
040114 
040114 



T16BrR: 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



.UORD 
.UGRD 
.UORD 
.UORO 
.UORO 

.yoRO 
.ypRD 

.UORO 



0 
0 
0 
0 
0 
0 
0 
0 



T16BrSTA: .BLKB 6. 
T16BEND: 

luRITE SUBSYSTEM READ STATUS COHHANO PACKET 



I BEGIN MESSAGE BUFFER 

ifCSSAGE TYPE 

iDATA FIELD LENGTH 

iRBPCR 

iXSTO 

iXSTl 

|XST2 

IXST3 

|XST4 (ALUAYS PRESEMT FOR URITE SUBSYSTEH 
I RE AO STATUS AND URITE FIFO BUFFER 
lEND OF MESSAGE BUFFER 



100006 
040010' 
000000 
000012 



000 
000 
000000 



104401 



t 

T16PK2: 



T16DT2: 



.BLKB 10-< . •TSV2e7> 



.UORD 
.UORD 
.UORO 
.UORD 



.BYTE 
.BYTE 
.UORD 
.BLKB 



ENDTST 



P.URTSUBfP.ACK 

T160T2 

0 

10. 



0 
0 
0 

64. 



I URITE SUBSYSTEM UITH ACK 
I LOU ADDRESS OF DATA BLOCK 
IHIGH ADDRESS OF DATA BLOCK 
iMINIMUN MESSAGE PACKET SIZE 

iDATA BLOCK 
iBSELO 
iBSELl 
|SEL2 

lURITE FIFO DATA OUTPUT BlFFER 



L 10053: 



TRAP 



CtETST 



.SBTTL TEST 6: FIFO EXERCISER 



TEST DESCRIPTION: 

This tMt uM« thtt Urit* SubsystM Mtmery co — n d to 
v«r!fy th« coAtrellcr's FIFO and aMoeiatad status an<i 
control logic. 

TEST STEPS: 



040116 
040116 



REPEAT FOR LOOPCNT 
BEGIN 

Do SUbtoat 1 
Do SUbtoot 2 
Do Subtoat 3 
Do Subtoat 4 
Do Subtoat 5 
Do Subtaat 6 

END 



BGNTST 



- FIFO InitiaKzo atatua toat 
• FIFO Urito Si nolo By to toat 

- FIFO Urita Multipla Bytaa toat 

- FIFO Vorify ILU Stotua toat 

- FIFO Input Raady toat 

- FIFO Vorify Rooot FIFO toat 



T6:: 



Dll 



SEO 15S 



2179 
2180 
2181 
2182 
218S 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2195 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2206 
2209 
2210 
2211 



2212 
2213 



040116 
040122 
040126 
040134 
040140 
040144 



012700 
004737 
012737 
004737 
005037 



046346' 

016322' 

000012 002216' 

017106' 

003134* 



T17L00P: 



MOV 
JSR 
HOV 
JSR 
CLR 



♦TST17I0.ro 
PC.TSTSETUP 
•10. .LOOPCNT 
PC.KTOFF 
KTENABLE 



I ASCII MESSAGE TO IDENTirr TEST 

lOO INITIAL TEST SETUP 

I PERFORM 10 ITERATIONS 

I SHUT OFF MEMORY MANAGEMENT 

iREALLY SHUT OOUN KT-11 



040144 
040144 
040144 



.SBTTL TEST 6t SUBTEST It FIFO INITIALIZE STATUS TEST 

TEST 6: SUBTEST 1: 

SUBTEST DESCRIPTION: 

This tMt vttrifiM. by uaing th* R«ad Status MUet cod*, 
that tha FIFO •t«tu« in th« correct otote of tor 

tho controller io in'itiolizod CInput Roady TRUE, 
Output Roady and Data In Miaa FALSE). Thooo otatuo 
aignala ar* choekod by tho controllor'o oolf-toot 
•oquoneo. oo this oubtoot io actually moro of a partial 
chock of tho Road Statua function than tho FIFO otatus. 

TEST STEPS: 



BEGIN 

Urito to TSSR to ooft initializo 
Oo a WRITE CHARACTERISTICS to ootup i 
Do a WRITE SUBSYSTEM Road Statuo 
If If^t Roady NOT-1 Thon Print Error 
If Output Roady NOT-0 Thon Print Error 
If Oota In Mioo NOT«0 Thon Print Error 

END 



buffor 



BGNSUB 



104402 



I //////////// BEGIN SUBTEST ////////// 
T6.1: 

TRAP CIBSUB 



2214 


040146 






5t: 


2215 


040146 


004737 


015604* 




2216 


040152 


103405 






2217 


040154 


010001 






2218 


0401S6 










040156 


1044SS 








040160 


001130 








040162 


003646* 








040164 


011644' 






2219 










2220 


040166 


005037 


002222' 


101: 


2221 


040172 


012704 


047740' 




2222 


040176 


0047S7 


010472' 




2223 


040202 








2224 


040216 


103407 






2225 


040220 


010001 






2226 


040222 








2227 


040222 






42<: 




040222 


104455 








040224 


001131 







Urito to TSSR rooiotor to ooft initiolizo tho controllor 



JSR PC.SOFINIT 

BCS lOt 

MOV RO.Rl 

ERROF ERRNO.SFIERR.SFIMSG 



Do a WRITE CHARACTERISTICS to 

CLR FATFLG 

MOV •T17PACKET.R4 

JSR PC.URTCHR 

FORCERROR 421 

BCS 501 

MOV RO.Rl 

NEXT.ERRNO 

ERROF ERRN0.T17SSR,PKTSSR 



iWRITE TO TSSR TO SOFT INITIALIZE 

iBR IF SOFT INI7 OKAY 

I SAVE CONTENTS OF TSSR 

lOEVlCE FATAL DURING INIT 

TRAP CtEROF 
.WORD 600 
.WORD SFIERR 
.WORD SFIMSG 

»tup o Moooao* buffor 

iCLEAR FATAL ERROR FLAG 

tGET THE ADDRESS OF COMMAND PACKET 

I DO WRITE CHARACTERISTICS COMMAND 

iSeOFORCE ERROR IF FORCER -I 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 

lOEVlCE FATAL SSR FAILED TO SET 

TRAP C*EROF 
.WORD 601 



TSVS HAROUARE TESTS MACRO 11113 01-fEe-a4 17:02 
TEST 6: SUBTEST 1: FIFO INITIALIZE STATUS TEST 



?228 
2229 

2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
22Sa 
2239 
2240 



2241 
2942 

2243 
2244 
2245 
2246 
2247 
2246 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 



2263 

2264 
2265 



2266 
2267 
2266 
2269 



040226 
040230 
040232 
040236 
040236 



040240 
040244 
040250 
040254 
040260 
040274 
040276 
040300 
040300 
040300 
040302 
040304 
040306 
040310 
040314 
040314 

040316 
040322 
040326 
040332 
0403S4 
040336 
040S42 
040S46 



040352 
040354 
040360 
040364 
040370 
040374 
040404 
040406 
040406 
040406 
040410 
040412 
040414 
040416 
040416 

040420 
040420 
040420 

040422 
040426 
040430 



046S6S' 
011656' 

005237 002222' 
104406 



004737 04 7524' 

012704 050110' 

010465 000000 

004737 016146' 



103407 
010001 



104455 

001132 



011656' 

005237 002222* 



104406 

004737 
012701 
012702 
012221 
011211 
052711 
042711 
042711 



047706' 
046142' 

050002' 



000020 
000040 
000200 



005000 

012701 047762' 

012702 046122' 

012703 000024 
004737 011310' 

10S404 



104456 

001133 

046705* 

012160' 

104406 



104403 

005737 002222* 
001402 

004737 017014' 



sot: 



INC 

CKLOOP 



FATFLG 



.WORD 
.UORO 

I SET FATAL ERROR FLAG 
iLOOP ON ERROR, IF FLAG SET 

TRAP 



SEQ 134 



T17SSR 
PKTSSR 



OCLPl 



621 i 



701: 
t 



Do • Urit* Subsyatwii READ STATUS 
JSR PC.T17SA0 
nOV •T17PK2.R4 
nOV R4.TSDB(RS) 
JSR PC.CHKTSSR 
FORCERROR 62 t 

eCS 70* 
NOV RO.Rl 
NEXT.ERRNO 

ERROr ERRN0.T173SSR. PKTSSR 



INC 

CKLOOP 



FATFLG 



Smt UOROS 0*7 of OApd MMag* 

JSR PC.T17SETEXP 

MOV •T17EXSTA.R1 

MOV #T17BFSTA.R2 

MOV CR2)*.(R1)* 

NOV (R2).(R1) 

BIS •S2.INR0Y.(R1) 

BIC •S2.0UTR0Y.(R1) 
8IC 



I SETUP PACKET FOR READ STATUS 
iGET URITE SUBSYSTEH COmAND PACKET 
tSET THE PACKET A00RE5S TO EXECUTE 
tVMIT FOR SSR TO SET 

iBBOFORCE ERROR IF FORCER -1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 

t DEVICE FATAL SSR FAILED TO SET 

TRAP CtERDF 
.UORO 602 
.UORO ri7SSSR 
.UORO PKTSSR 

I SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF fLAG SET 

TRAP CICLPI 
buffer ■ to rocv oinco not tooting 
I SET UOROS 0-7 EXPO-RECV 
I GET EXPECTED READ STATUS 
iGET RECV READ STATUS 
tSET EXPO UORO M - RECV TEr» 
tSET EXPO UORO «9 - RECV TEfV 
I SET EXP IMMT READY* TRUE 
tSET EXP OUTPUT READY- FALSE 
I SET EXP DATA IN HISS - FALSE 



•S2.0IH,(R1) 
If Input Rootfy NOT-1 thon Print Error 
If Output Roody NOT-0 or Data in nioo N0T*C Thon Print 



CLR 
MOV 
MOV 
MOV 
JSR 



RO 

♦T17BFR.R1 
♦T17EXP.R2 
•20. .R3 

PC.CKHSG2 



Error 



82I.N0TSSR 



821 i 



901 j 



FORCERROR 
BCS 901 
NEXT.ERRNO 

ERRHRD ERRN0.T171CNP.nSGSTAT 



CKLOOP 



I HIGH RECV ADDRESS FOR CKnSG2 
tLOU RECV ADDRESS FOR CKHSG2 
lEXPD ADDRESS 

iNUrOER OF BYTES TO COMPARE 
tEXPO EQUAL RECV? 

isao 

iBR IF YES 



{REPORT ERROR 



iLOOP ON ERROR. IF FLAG 



TRAP 

.UORO 

.UORO 

.UORO 

SET 

TRAP 



CIERHRO 
60S 

T171CMP 
MSGSTAT 

C«CLP1 



ENDSUB 



TST 
BEQ 
JSR 



I ////✓/////// 



END SUBTEST ////////// 
L 10057: 

TRAP CiESUB 



FATFLG 
1601 

PC.CKDROP 



I ANY FATAL ERRORS ? 

t BRANCH IF NOT 

I TRY TO DROP THE UNIT 



TSV5 
TEST 



HAROUARE TESTS MACRO Mil IS 01 -FEB -84 17t02 
i: SUBTEST I: FIFO INITIAlME STATUS TEST 



Fll 



SEQ 135 



2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2306 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 



2318 
2319 
2320 
2321 
2322 
2323 
2324 



040434 



1601 < 



.SBTTL TEST 6i SUBTEST 2- FIFO URITE SINGLE BYTE TEST 



040434 

040434 

040434 104402 



040436 

040436 004737 015604' 
040442 103405 
040444 010001 
040446 



TEST 6: SUBTEST 2: 

SUBTEST DESCRIPTION: 

Thi« subtMt v«rifi«« th« ability of th« FIFO to corroctly 
PM« • singlo <^t« byt« from input to output. For ooch 
of 256 dato valuo* C0-S77 octal) tK« follOMing ia 4on«: 
1. Initial FIFO atatua ia chackad 

TK« Urita FIFO function, apacifying a count of 
ona byta to ba writtan ia axacutad. 
Raad Statua ia axacutad and FIFO atatua ia chackcd. 
Raad FIFO !a axacutad and tha data and final atatua 
•a chackad. 

TEST STEPS: 



2. 

3. 
4. 



buffar 



BEGIN 

Urita to TSSR to aoft initializa 
Oo a URITE CHARACTERISTICS to aatup 
Do a Urita Subayata* READ STATUS 
If Input Raady NDT*1 Than Print Error 
If Output Raady NOT*0 Than Print Err«r 
If Data In Hiaa NOT>0 Than Print Err«r 

REPEAT FOR DATA FROH 0 TO 377 OCTAL 
BEGIN 

Oo a Urita SubayatoM URITE NPR to aat ta^ diraction out 
Oo a Urita Subayata* URITE FIFO itith bytp count a«ual to 1 
Oo a Urita Subayata* READ STATUS 
If Input Rapdy NOT-1 Than Print Error 
If Output RaPdy N0T>1 Than Print Error 
If Data In Mi aa NOT«0 Than Print Error 
Do Urita Sobayata* READ FIFO itith byta count a«Mal to 1 
If Data rmmd from FIFO NOT* to Data 



END 
END 



»t Than Print Error 

Do a Urita Sabayatan READ STATUS 
If Input Raady NOT-1 Than Print Error 

Than Print Error 
Than Print Error 



If Output Raady NOT-0 
If Data In Hia* NOT*0 



BGNSUB 



I //////////// BEGIN SlSTEST ////////// 
T6.2: 

TRAP CtBSUe 



I 

5l! 



Urita to TSSR ragiotar to aoft SnitSalixa tha controllar 



JSR PC.SOFINIT 

BCS 101 

MOV RO.Rl 

ERRDF ERRNO.SFIERR.SFIMSG 



lURITE TO TSSR TO SOFT INITIALIZE 
I BR IF SOFT INIT OKAY 
I SAVE CONTENTS OF TSSR 
iDEVICE FATAL DURING INIT 



Gil 



TSVS - HARDWARE TESTS MACRO HlllS Ol-FEB-M 17:02 
TEST 6- SUBTEST ?• FIFO URITE SINGLE BYTE TEST 



SEQ 156 





040446 


104455 






040450 


001133 






040452 


003646' 






040454 


011644' 




2325 








2326 


040456 


005037 


002222' 


2327 


040462 


012704 


047740' 


2328 


040466 


004737 


010472' 


2329 


040472 






2330 


040506 


103407 




2331 


040510 


010001 




2332 


040512 






2333 


040512 








040512 


104455 






040514 


001134 






040516 


046365' 






040520 


011656' 




2334 


040522 


005237 


002222' 


2335 


040526 








040526 


104406 




2336 








2337 


040530 


004737 


047524' 


2338 


040534 


012704 


050110' 


2339 


040540 


010465 


000000 


2340 


040544 


004737 


016146' 


2941 


040550 






2342 


040564 


103407 




2343 


040566 


010001 




2344 


040570 






2345 


040570 








040570 


104455 






040572 


001135 






040574 


046466' 






040576 


011656' 




2346 


040600 


005237 


002222' 


2347 


040604 








040604 


104406 




2348 








2349 


040606 


004737 


047706' 


2350 


040612 


012701 


046142' 


2351 


040616 


012702 


050002' 


2352 


040622 


012221 




2353 


040624 


011211 




2354 


040626 


052711 


000020 


2355 


040632 


042711 


000040 


2356 


040636 


042711 


000200 



2SS7 
2356 
2359 
2560 
2361 
2362 
2363 
2364 
2365 
2566 
2567 



040642 
040644 
040650 
040654 
040660 
040664 
040674 
040676 
040676 



005000 

012701 047762' 

012702 046122' 

012703 000024 
004757 011310' 

105404 



I 

lot: 



42t: 



50t: 
I 



62«: 



701: 
t 



TRAP OEROr 
.WORD 605 
.WORD SFIERR 
.WORD STIHSG 

WRITE CHARACTERISTICS to Mtup • mmnm^ buffer 

I CLEAR FATAL ERROR FLAG 
iGET THE ADDRESS OF COHHANO PACKET 
iOO URirr CHARACTERISTICS COHHANO 

I880F0RCE ERROR IF FORCER -1 
iBR IF CARRY SET (GOOD RETURN) 
tSAVE CONTENTS OF TSSR 



Do 

CLR FATFLG 
HOV #T17PACKET.R4 
JSR PC.WRTCHR 
FORCERROR 42 t 

BCS 50» 
MOV RO.Rl 
NEXT.ERRNO 
ERRDF ERRNO . T 17SSR . PKTSSR 



INC 

CKLOOP 



FATFLG 



Uv>it« SUbaystMi READ STATUS 
PC.TlTSm 



Do 
JSR 

NOV •Ti7PK2.R4 
NOV R4.TS0B(R5) 
JSR PC.CHKTSSR 
FORCERROR 62< 
BCS 70t 
NOV RO.Rl 
NEXT.ERRNO 

ERROF ERRNO. T173SSR.PKTSSR 



I DEVICE FATAL SSR FAILED TO SET 

TRAP CtEROF 
.WORD 604 
.WORD T17SSR 
.WORD PKTSSR 

tSET FATAL ERROR FLAG 
ilOOP on error, if flag S£T 

TRAP CtCLPl 

I BE TUP PACKET FOR READ STATUS 
•GET URITE SUBSYSTEN CQNNAND PACKET 
I SET T»C PACKET ADDRESS TO EXECUTE 
lUAIT FOR SSR TO SET 

lanFORCE ERROR IF FORCER- 1 
I BR IF CARRY SET CGOQO RETURN) 
•SAVE CONTENTS OF TSSR 



INC 

CKLOOP 



FATFL6 



S*t WORDS 0-7 of •xptf «Mi 



JSR 
MOV 
NOV 
NOV 
NOV 
BIS 
BIC 
BIC 



PC.T17SETEXP 
•T17EXSTA.R1 
•T17BrSTA.R2 
(R2)*.(R1)* 
CR2).(Rl) 
•S2.INRDY.(R1) 
•S2.0UTRDY.(R1) 
•S2.0IN.(R1) 



lOEVICE FATAL SSR FAILED TO SET 

TRAP C*EROF 
605 

T173SSR 
PKTSSR 

I SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP CtCLPI 
buff or • to rocv oinco not tooting 
I SET WORDS 0-7 EXPD-RECV 
iGET EXPECTED READ STATUS 
iGET RECV READ STATUS 
iSET EXPD WORD 46 - RECV TENP 
tSCT EXPD WORD «9 • RECV TENP 
I SET EXP INPUT READY- TRUE 
I SET EXP OUTPUT READY- FALSE 
I SET EXP DATA IN NISS - FALSE 
If Input Roody NOT-1 thon Print Error 

If Output Roody NOT-0 or Doto in Hioo NOT-0 Thon Print Error 



CLR 
NOV 
NOV 
NOV 
JSR 



RO 

#T176FR.R1 
♦T17EXP,R2 
#20.. RS 

PC.CKNSG2 



a2I.N0TSSR 



S2t! 



FORCERROR 
BCS 901 
NEXT ERRNO 

ERRHRD ERRNO. T171CMP.MSGSTAT 



I HIGH RECV ADDRESS FOR CKNSG2 
I LOW RECV ADDRESS FOR CKNSG2 
lEXPO ADDRESS 

I NUMBER OF BYTES TO COMPARE 
tEXPO EQUAL RECV? 
t 
I 



BR IF YES 



{REPORT ERROR 



Hll 



TSV5 
TEST 





040676 


104456 






040700 


001136 






040702 


046705' 






040704 


012160' 




2366 


040706 








040706 


104406 




2569 








2370 








2371 


040710 


012737 


000000 


2372 


040716 






2373 








2374 


040716 


012700 


000100 


2375 


040722 


004737 


047566- 


2376 


040726 


012704 


050110' 


2377 


040732 


010465 


000000 


2376 


040736 


004757 


016146' 


2379 


040742 






2360 


040756 


103407 




2361 


040760 


010001 




2362 


040762 






2363 


040762 








040762 


104455 






040764 


001137 






040766 


046535' 






040770 


011656' 




2364 


040772 


005257 


002222' 


2365 


040776 








040776 


104406 




2366 








2367 


041000 


012700 


000001 


2366 


041004 


012701 


002512' 


2369 


041010 


004757 


047612' 


2390 


041014 


012704 


050110' 


2391 


041020 


010465 


000000 


2392 


041024 


004757 


016146' 


2393 


041030 






2394 


041044 


105407 




2395 


041046 


010001 




2396 


041050 






2397 


041050 








041050 


104455 






041052 


001140 






041054 


046576' 






041056 


011656' 




2396 


041060 


005257 


002222' 


2399 


041064 








041064 


104406 





90» : CKLOOP 



TRAP 
.WORD 
.WORD 
.UORD 

•LOOP ON ERROR, IF FLAG SET 

TRAP 



SCO 157 



CIERHRO 
606 

T171CMP 
riSGSTAT 

C»CLPl 



lOOti 



R«p««t for DATA from 0 to 577 
NOV 60. DATA 



102t: 



105 1: 



1071: 



not: 



2400 
2401 
2402 
2405 
2404 
2405 
2406 
2407 
2406 
2409 



041066 
041072 
041076 
041102 
041106 
041122 
041124 
041126 



004757 047524' 

012704 050110' 

010465 000000 

004757 016146' 

105407 
010001 



Do • Urito Suboyvto* 
»10V •NP.OUT.RO 
JSR PC,T17SNPR 
MOV ♦T17PK2.R4 
nOV R4.TS0B(R5) 
JSR PC.CWTSSR 

1021 



FORCERROR 

ecs lost 

nov RO.Rl 
NEXT.ERRNO 

ERROF ERRN0.T174SSR.PKTSSR 



I GET FIRST DATA 
I REPEAT LABEL 
URITE NPR to Mt t9p* 4<r«ct:on out 
I SET TAPE DIRECTION OUT 
I SETUP T17PK2 FOR URITE NPR 
I GET URITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
lUAIT FOR SSR TO SET 

I860FORCE ERROR IF FORCER -1 
iBR IF CARRY SET (GOOD RE1URN) 
I SAVE CONTENTS Of TSSR 



I DEVICE FATAL SSR FAILED TO SET 

TRAP 
.UORD 
.WORD 
.UORD 

INC FATFLG iSET FATAL ERROR FLAG 

CKLOOP iLOOP ON ERROR. IF FLAG SET 

TRAP 

Do • Urito Suboyoto* URITE FIFO MitH by to count ooual to 1 



CtERDF 
607 

T174SSR 
PKTSSR 



CtCLPl 



MOV 41. RO 

MOV 4DATA.R1 

JSR PC,T17inF 

MOV «T17PK2.R4 

MOV R4.TS0BCR5) 

JSR PC.CHKTSSR 
FORCERROR 107 t 

Bcs not 

MOV RO.Rl 
NEXT.ERRNO 

ERRDF ERRN0.T175SSR.PKTSSR 



INC 

CKLOOP 



FATFLG 



tiAITE 1 BYTE 
{FIFO URITE DATA ADDRESS 
I SETUP T17PK2 FOR URITE FIFO 
iGET URITE SUBSYSTEM C0»t1ANO PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
lUAIT FOR SSR TO SET 

iBBOFORCE ERROR IF FORCER- 1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 

I DEVICE FATAL SSR FAILED TO SET 

TRV> CtEROF 
.UORD 606 
•UORD T175SSR 
.UORD PKTSSR 

I SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP CtCLPl 



Do • Urito SuboyotOM REM) STATUS 

JSR PC.T17Sro 

MOV ♦T17PK2.R4 

MOV R4.TS0B(R5) 

JSR PC.CHKTSSR 

FORCERROR 112t 

BCS 120 t 

MOV RO.Rl 

NEXT.ERRNO 



I SETUP PACKET FOR READ STATUS 
tGET URITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
lUAIT FOR SSR TO SET 

iSGOFORCE ERROR IF FORCER •! 
tBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



Ill 
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TEST 6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST 



S£Q ISO 



2410 



2411 
2412 

24 IS 
2414 
2415 
2416 
2417 
2416 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2426 
2429 
2430 
2431 
2432 



2433 

2434 
2435 
2436 
2437 
2436 
2439 
2440 
2441 
2442 
2443 
2444 
2445 



2446 
2447 

2446 
2449 
2450 
2451 



041126 
04112O 
041130 
04' 132 
041134 
041136 
041142 
041142 

041144 
041150 
041154 
041160 
041162 
041164 
041170 
041174 



041200 
041202 
041206 
041212 
041216 
041222 
041232 
041234 
041234 
041234 
041236 
041240 
041242 
041244 
041244 



041246 
041252 
041256 
041262 
041266 
041272 
041306 
041310 
041312 
041312 
041312 
041314 
041316 
041320 
041322 
041326 
041326 

041330 
041334 
041340 



104455 
001141 
046466' 

011656* 

005237 002222- 



104406 

004737 
012701 
012702 
012221 
011211 
052711 
052711 
042711 



047706' 
046142' 
050002' 



000020 
000040 
000200 



120t: 
t 



005000 

012701 047762' 

012702 046122' 

012703 000024 
004737 011310' 

103404 



104456 
0C1142 
047063' 
012160' 

104406 



012700 000001 

004737 047646' 

012704 050110* 

010465 000000 

004737 016146' 

103407 
010001 



104455 
001143 
046642' 
011656' 

005237 002222' 
104406 

004737 047706' 

012701 046142' 

012702 050002' 



132t! 



1401: 



1421: 



150$ ! 



S«t WORDS 0-7 of cxpa 



JSR 
HOV 
MOV 

nov 
nov 

BIS 
BIS 
BIC 



PC.T17SE7EXP 
#T17EXSTA,R1 
#T17BFSTA,R2 
(R2)».(R1)» 
(R2).(R1) 
#S2.INR0Y.(R1) 
•S2.0UTR0Y.(R1) 
♦S2.0IH.(R1) 



112* : ERRDF ERRNO. T173SSR.PKTSSR lOEVICE FATAL SSR TAILED TO SET 

TRAP 
.WORD 
.WORD 

INC FATFLG iSET FATAL ERROR FLAG 

CKLOOP iLOOP ON ERROR. IF FLAG SET 

TRAP 

buff«r > to r«cv sine* not t««t:rw 

I SET WORDS 0-7 EXPO-RECV 
I GET EXPECTED READ STATUS 
I GET RECV READ STATUS 
I SET EXPO WORD 46 - RECV TEMP 
I SET EXPO WORD 49 - RECV TEriP 
I SET EXP I»^T READY- 1 
iSET EXP OUTPUT READY- 1 
tSET EXP DATA IN NISS - 0 
I If Input R«atfy NOT-1 th«n Print Error 

t If Output R«Ptfy NOT-1 or Data in Mia* NOT-0 Thon Print Error 



CIERDF 
609 

T17SSSR 
PKTSSA 



CKLPl 



CLR 

nov 
nov 
nov 

JSR 



RO 

♦TlTBFR.Rl 
♦T17EXP,R2 
#20. .R3 
PC,CKnSG2 



132t.N0TSSR 



FORCERROR 
BCS 1401 
NEXT. ERRNO 

ERRHRO ERRNO. T173CnP,nSGSTAT 



CKLOOP 



I HIGH RECV ADDRESS FOP CKnSG2 
I LOW RECV ADDRESS FOR CKnSG2 
lEXPD ADDRESS 

iNUHBER OF BYTES TO COMPARE 
I EXPO EQUAL RECV? 



TRAP 
.WORD 
.WORD 
.WORD 
IF FLAG SET 
TRAP 



I BR IF YES 
I REPORT ERROR 



tLOOP ON ERROR. 



CIERHRD 
610 

T173CW> 
nSGSTAT 

CICLPI 



Do Writ* Sub«y*t«« READ FIFO with byt« count oqual to 1 



nov 41. RO 

JSR PC.TITRFIF 
nov ♦T17PK2,R4 
nov R4.TS0e(R5) 
JSR PC.CHKTSSR 
FORCERROR 1421 
BCS 150$ 
nov RO.Rl 
NEXT. ERRNO 

ERRDF ERRNO. T176SSR.PKTSSR 



INC 

CKLOOP 



FATFLG 



Sot WORDS 0-7 of oxpd 
JSR PC.T17SETEXP 
nov «T17EXSTA.R1 
nov 9T17BFSTA.R2 



(SET READ BYTE COUNT 
1 SETUP T17PK2 FOR READ FIFO 
iGET WRITE SUBSYSTEH COnnAND PACKET 
tSET THE PACKET ADDRESS TO EXECUTE 
tUAIT FOR SSR TO SET 

iBSDFORCE ERROR IF FORCER -1 
iBR IF CARRY SET (GOOD RETURN) 
(SAVE CONTENTS OF TSSR 

tOEVICE FATAL SSR FAILED TO SET 

TRAP OERDF 
.WORD 611 
.WORD T176SSR 
.WORD PKTSSR 

I SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP CICLPI 
buffor ■ to rocv olnco not tooting 
tSET WORDS 0-7 EXPD-RECV 
iGET EXPECTED READ STATUS 
I GET RECV READ STATUS 



Jll 
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2452 
2455 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 



2465 

2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 



2477 
2478 

2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 



041344 
041350 



041552 
041354 
041360 
041364 
041370 
041374 
041404 
041406 
041406 
041406 
041410 
041412 
041414 
041416 
041416 



041420 
041424 
041430 
041434 
041440 
041454 
041456 
041460 
041460 
041460 
041462 
041464 
041466 
041470 
041474 
041474 

041476 
041502 
041506 
041512 
041514 
041516 
041522 
041526 



041532 
041534 
041540 
041544 
041550 
041554 
041564 
041566 
04 1566 



013721 002312' 
011211 



005000 

012701 047762' 

012702 046122' 

012703 000022 
004737 011310- 

103404 



104456 
001144 
046767' 
013552' 

104406 



004737 047524' 

012704 050110' 

010465 000000 

004737 016146' 

103407 
010001 



104455 
001145 
046466' 
011656' 

005237 002222' 



riOV DATA.(Rl)» 

MOV (R2).CR1) 
I If Data raad from TIFQ NOT- to 

i Tha data in WORD M of th« i 

CLR RO 

MOV ♦T17BFR,R1 

MOV ♦T17EXP,R2 

MOV *18..R3 

JSR PC.CKMSG2 

FORCERROR 1521 . NOTSSR 

BCS 160t 

NEXT.ERRNO 
152>: ERRHRO ERRN0.T172CMP.MSGSUB 



160t: CKLOOP 



104406 

004737 
012701 
012702 
012221 
011211 
052711 
042711 
042711 



047706' 
046142* 
050002' 



000020 
000040 
000200 



162$: 



170ti 
t 



005000 

012701 047762' 

012702 046122* 

012703 000024 
004737 011310' 

103404 



SEO 139 

I SET EXPD WORD M • COUNT DATA 

I SET EXPO WORD •9 - RECV (NOT TESTING) 

Data —nt Than Print Error 

laaaaoa buf far 

I HIGH RECV ADDRESS FOR CKHSG2 
I LOU RECV ADDRESS FOR CKMSG2 
I EXPD ADDRESS 

I NUMBER OF BYTES TO COMPARE 

I EXPD EQUAL RECV? 

|880 

I PR IF YES 
I REPORT ERROR 

TRAP CtERHRD 
.WORD 61£ 
.WORD T172CMP 
.WORD MSGSU8 
I LOOP ON ERROR. IF FLAG SET 

TRAP C«CLP1 



Do • Urita Subaystaw READ STATUS 
JSR PC.T17SRD 
MOV #T17PK2.R4 
MOV R4.TS08(R5) 
JSR PC.CHKTSSR 
FORCERROR 1621 
BCS 1701 
MOV RO.Rl 
NEXT.ERRNO 

ERROT ERRN0.T173SSR.PKTSSR 



I SETUP PACKET FOR READ STATUS 
I GET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
tWAIT FOR SSR TO SET 

tMOFORCE ERROR IF FORCER- 1 
iBR IF CARRY SET (GCOO RETIDN) 
tSAVE CONTENTS OF TSSR 



INC 

CKLOOP 



FATFLG 



Sat WORDS 0-7 of aitpd 

JSR PC.T17SETEXP 

MOV *T17EXSTA.R1 

MOV #T17BrSTA.R2 

MOV (R2)*.(R1)* 

MOV (R2).(R1) 

BIS •S2.INR0Y.(R1) 

BIC •S2.0UTR0Y.CR1) 

BIC 4S2.DIM.(R1) 



tOEVlCE FATAL SSR FAILED TO SET 

TRAP CtEROF 
.WORD 613 
.WORD T173SSR 
.WORD PKTSSR 

{SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP C«CLP1 
buf far ■ to racv sinca not taating 
tSET WORDS 0-7 EXPO-RECV 
iGET EXPECTED READ STATUS 
iGET RECV READ STATUS 
tSET EXPD WORD M - RECV TEMP 
I SET EXPO WORD 49 - RECV TEMP 
{SET EXP INPUT READY- 1 
tSET EXP OUTPUT READY- 0 
EXP DATA IN MISS - 0 



iSET 

If Input Raady NOT-1 than Print Error 

If Output Raady NOT-0 or Data in Mi«« NOT-0 Than Print Error 
CLR RO 



172t: 



MOV •T17BFR,Rl 

MOV #T17EXP.R2 

MOV 420. .R3 

JSR PC.CKMSG2 

FORCERROR 1 72 » . NOTSSR 

BCS 180$ 

NEXT ERRNO 

ERRHRO ERRNO. T174CMP.MSGST AT 



I HIGH RECV ADDRESS FOR CKMSG2 
I LOW RECV ADDRESS FOR CKMSG2 
tEXPO ADDRESS 

I NUMBER OF BYTES TO COMPARE 
tEXPO EQUAL RECV? 

tsao 

iBR IF YES 
{REPORT ERROR 
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Kll 



2499 

2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 



2506 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2516 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2526 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2536 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2546 



041566 
041570 
04 J 572 
041574 
041576 
041576 
041600 
041610 
041614 
041622 
041624 
041630 

041630 
041630 
041630 

041632 
041636 
041640 
041644 



104456 
001146 
047147' 
012160' 

104406 

005237 002312' 
023727 002312' 000377 
101002 

000137 040716' 



104403 

005737 002222' 
001402 

004737 017014' 



160»: 



2051: 



260>: 



CKLOOP 

FORCEXIT 2051 

INC DATA 

CMP DATA. #377 

BHI 2051 

jnP 1001 



ENOSUB 



TST FATFLC 

BEQ 2601 

JSR PC.CKOROP 



SEQ 140 



OERHRO 
614 

T174CMP 
HSGSTAT 

CICLPl 



TRAP 
.WORD 
.WORD 
.UORO 

iLOOP ON ERROR. IF FLAG SET 

TRAP 

1000 

iGET NEXT TEST DATA 
lOONE 0 TO 377? 
I BR IF YES 

I DO ANOTHER TEST PATTERN 



I //////////// END SUBTEST ////////// 
L 10060: 

TRAP CIESUB 



{ANY FATAL ERRORS ? 

{BRANCH IF NOT 

I TRY TO DROP THE UNIT 



.SBTTL TEST 6: SUBTEST 3: FIFO URITE MULTIPLE BYTES TEST 



TEST 6: SUBTEST 3: 

SUBTEST DESCRIPTION: 

This vubtMt vsrifiM th« ability of th« FIFO to correctly 
pM* • Multiple data bytaa fro* input to output. 
Tha follow i no 9m9^Mncm ia dona Mith various data patterns 
and byte counts fro« 2 to 64. 

1. Initial FIFO statue is checked 

2. The Urtta FIFQ function. 

3. Read Status is exacuted and FIFO status is checked. 

4. Read FIFO is axacutad and the data and final status 
is checked. 

TEST STEPS: 
BEGIN 

Write to TSSR to soft initialize 

Do a URITE CHARACTERISTICS to aetup a message buffer 

Do a Urita Subsystem READ STATUS 

If Input Ready N0T>1 Then Print Error 

If Output Ready NOT-0 Than Print Error 

If Data In Hiss NOT>0 Then Print Error 

If Laat Uord N0T«0 Then Print Error 
REPEAT FOR DATA 0 TO 377, 377 TO 0, FLOATING I'S.OS AND ALL I'S/OS 
REPEAT FOR BYTE COUNT 2 TO 64 DECIMAL 
BEGIN 

Do a Urite Subsystem URITE NPR to sat taps direction out 

Do a Urite Subsystem URITE FIFO 

Do a Urite Subsystem READ STATUS 

If Input Reedy N0T"1 Then Print Error 

If Output Raady N0T"1 Then Print Error 



Lit 
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SEQ 141 



2549 

2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2SS« 
2559 
2560 
2561 



041644 
041644 
041644 



104402 

















AAA 






AA1 AAA 


AAA7'^7 




ASO 


1 AYAAS 
XvO^U3 




ASA 


A1 AAA1 




AA1 ASA 






AA1 ASA 


1 AAASS 




AAf AAA 


AA1 1AA 




AA1 AA9 


AA'^AAA' 




AA1 AAA 


All AAA * 










AA1 AAA 


AASAY7 


2571 


OA1A79 


A1 P7AA 
wX£ V 




OA1A7A 


AAA7'^7 

# J ff 


2573 


OA1 70P 

>^X f 




2574 


OA1 71 A 

>^X f xo 


1 A^A7 
Xvd^v ff 


2575 




A1AAA1 


2576 


041722 




2577 


041722 






041722 


104455 




041724 


001147 




041726 


046365' 




041730 


011656* 


2578 


041732 


005237 


2579 


041736 






041736 


104406 


2580 






2581 


041740 


004737 


2582 


041744 


012704 


2583 


041750 


010465 


2584 


041754 


004737 


2585 


041760 




2566 


041774 


103407 


2587 


041776 


010001 


2588 


042000 




2589 


042000 






042000 


104455 




042002 


001150 




042004 


046466' 




042006 


011SS6' 


2590 


042010 


005237 



If Oats In Mi«s N0T"0 Th«n Print Error 
If La«t Word NOT-0 Thon Print Error 
Do Writ* Sub«y«t«m READ FIFO 

If Data raad from FIFO NOT- to Data aant Than Print Error 
Do a Writ* Subayatam READ STATUS 



END 
END 



If Input Raady NOT-1 
If Output Raady NOT-0 
If Data In Miaa NOT-0 
If Laat Word NOT-0 



Than Print Error 
Than Print Error 
Than Print Error 
Than Print Error 



t 

51: 



101: 



42t: 



501: 
t 



62«: 



BGNSUB 



I//////////// BEGIN SUBTEST ////////// 
T6.3: 

TRAP CIBSUB 



Urita to TSSR rafliatar to aoft initializa th* eontrollar 



JSR 
BCS 
MOV 
ERRDF 



PC.SOFINIT 

101 

RO.Rl 

ERRNO , SFIERR . SFIMSG 



I WRITE TO TSSR TO SOFT INITIALIZE 
I BR IF SOFT INIT OKAY 
tSAVE CONTENTS OF TSSR 
{DEVICE FATAL DURING INIT 

TRAP OEROF 
.UORO 614 
.WORD SFIERR 
.WORD SFinSG 

Do a WRITE CHARACTERISTICS to aatup a maaaag* buffer 



CLR FATFLG 
MOV ♦T17PACKET,R4 
JSR PC.WRTCHR 
FORCERROR 421 
BCS S0» 
MOV RO.Rl 
NEXT. ERRNO 

ERRDF ERRNO. T17SSR.PKTSSR 



INC 

CKLOOP 



FATFLG 



Do a Writa Subayatam READ STATUS 
JSR PC.T17SR0 
MOV ♦T17PK2,R4 
MOV R4.TSD6(R5) 
JSR PC.CHKTSSR 
FORCERROR 621 
BCS 701 
MOV RO.Rl 
NEXT. ERRNO 

ERRDF ERRNO. T173SSR.PKTSSR 



t CLEAR FATAL ERROR FLAG 
I GET THE ADDRESS OF COMMAND PACKET 
I DO WRITE CHARACTERISTICS COMMAND 

lOaOFORCE ERROR IF FORCER- 1 
I BR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 

iDEVICE FATAL SSR FAILED TO SET 

TRAP C«ERDF 
.WORD 615 
.WORD T17SSR 
.WORD PKTSSR 

I SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP OCLPl 

; SETUP PACKET FOR READ STATUS 
iGET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
tWAIT FOR SSR TO SET 

188DFORCE ERROR IF FORCER- 1 
I BR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



INC 



FATFLG 



(DEVICE FATAL SSR FAILED TO SET 

TRAP C»EROF 
.WORD 616 
.WORD T173SSR 
.WORD PKTSSR 

I SET FATAL ERROR FLAG 



Mil 



SEQ 142 



2591 

2592 
2593 
2594 
2595 
2596 
2597 
2596 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2606 
2609 
2610 
2611 
2612 
2613 



2614 

2615 
2616 
2617 
2616 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2626 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 



2637 



042014 
042014 

042016 
042022 
042026 
042032 
042034 
042036 
042042 
042046 
042052 



042056 
042060 
042064 
042070 
042074 
042100 
042110 
042112 
042112 
042112 
042114 
042116 
042120 
042122 
042122 



104406 

004737 
012701 
012702 
012221 
0X1211 
052711 
042711 
042711 
042711 



047706' 
046142' 
050002' 



000020 
000040 
000200 
000100 



70>: 
i 



CKLOOP 

S«t UOROS 0-7 of •xpd m*««aa« 

JSR PC,T17SETEXP 

HOV «T17EXSTA,R1 

MOV «T17BrSTA.R2 

MOV (R2)*.(Rl)» 

MOV (R2),(R1) 

BIS «S2.INRDY.(R1) 

SIC •S2.0UTRDY.(R1) 

BIC «S2.DIM.(R1) 

BIC •S2.ILU.(R1) 



005000 

012701 047762' 

012702 046122' 

012703 000024 
004737 011310' 

103404 



104456 

001151 

046705' 

012160' 

104406 



I SET 

If Input R«ady NOT-1 th«n Print Error 
If Output Roady NOT-0 or Data in Mi«« NOT 
If Last Word NOT«0 Than Print Error 



iLOOP ON ERROR. IF FLAG SET 

TRAP C»CLP1 
buffar ■ to racv ainca not taating 

I SET UOROS 0-7 EXPD-RECV 
I GET EXPECTED READ STATUS 
iGET RECV READ STATUS 
I SET EXPD WORD M - RECV TEMP 
I SET EXPD WORD «9 - RECV TEMP 
J SET EXP INPUT READY- 1 
I SET EXP OUTPUT READY- 0 
I SET EXP DATA IN MISS - 0 
EXP LAST WORD (ILW)-O 



-0 Than Print Error 



CLR 
MOV 
MOV 
MOV 
JSR 



RO 

#T17BFR.R1 
♦T17EXP,R2 
♦20.. R3 
PC.CKMSG2 



aat.NOTssR 



62»i 



90»: 



FORCERROR 
BCS 90$ 
NEXT.ERRNO 

ERRHRD ERRN0.T171CMP,MSGSTAT 



CKLOOP 



I HIGH RECV ADDRESS FOR CKMSG2 
iLOW RECV ADDRESS FOR CKMSG2 
tEXPD ADDRESS 

I NUMBER OF BYTES TO COMPARE 

I EXPD EQUAL RECV? 

i880 

I BR IF YES 



•REPORT ERROR 



tLOOP ON ERROR. IF FLAG 



TRAP 

.WORD 

.WORD 

.WORD 

SET 

TRAP 



042124 


012737 


000001 


042132 






042132 


012737 


000002 


042140 






042140 


012700 


000100 


042144 


004737 


047566' 


042150 


012704 


050110' 


042154 


010465 


000000 


042160 


004737 


016146' 


042164 






042200 


103407 




042202 


010001 




042204 






042204 






042204 


104455 




042206 


001152 




042210 


046533' 




042212 


011656' 




042214 


005237 


002222' 



002314' 
002310' 



REPEAT FOR 
TSTFLAG -1 
•2 
-3 

MOV 



951: 

1001: 
t 



BYTE COUNT 2 TO 64 DECIMAL 
FOR INCREMENT TEST PATTERN 
FOR DECREMENT TEST PATTERN 
FOR TSTBLK TABLE PATTERN 
♦l.TSTFLAG 



MOV 



«2. COUNT 



1021: 



Do a Urita Subayataot WRITE NPR 

MOV ♦NP.OUT.RO 

JSR PC.T17SNPR 

MOV ♦T17PK2.R4 

MOV R4.TS06(R5) 

JSR PC.CHKTSSR 

FORCERROR 102 » 

BCS 105$ 

MOV RO.Rl 

NEXT.ERRNO 

ERRDF ERRN0.T174SSR.PKTSSR 



C$ERHRD 
617 

T171CMP 
MSGSTAT 

C$CLP1 



I TEST PATTERN FLAG 

iGET FIRST BYTE COUNT 

to sat tapa diraction out 
tSET TAPE DIRECTION OUT 
I SETUP T17PK2 FOR WRITE NPR 
(GET WRITE SUBSYSTEM COMMAND PACKET 
•SET THE PACKET ADDRESS TO EXECUTE 
(WAIT FOR SSR TO SET 

iSSOFORCE ERROR IF FORCER -1 
I BR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



I DEVICE FATAL SSR FAILED TO SET 

TRAP 



INC 



FATFLG 



I SET FATAL ERROR FLAG 



.WORD 
.WORD 
.WORD 



C$ERDF 
616 

T 174 SSR 
PKTSSR 



Nil 



TSV5 - HAROUARE TESTS MACRO MlllS 01 -FEB 64 17:02 
TEST 6: SUBTEST 5: FIFO URITE MULTIPLE BYTES TEST 



SEQ 143 



2636 


042220 
042220 


104406 




105$: 


CKLOOP 




2639 








s 


Do a Wr 


t« Subsystem WRITE FIFO 


2640 


042222 


004737 


047666' 




JSR 


PC,T17CLEXP 


2641 


042226 


012701 


046244 ' 




MOV 


♦T17WFDATA,R1 


2642 


042P32 


013702 


002310' 




MOV 


COUNT •R2 


2643 


042236 


022737 


000001 


002314' 


Clip 


♦1 , TSTFLAG 


2644 


042244 


001005 






BNE 


115$ 


2645 


042246 


005000 






CLP 


RO 


2646 


042250 


110021 




110*: 


MOVB 


RO.CRl}^ 


2647 


042252 


005200 






INC 


RO 


2640 


042254 


005302 






DEC 


R2 


2649 


042256 


003374 






8GT 


110$ 


2650 


042260 


022737 


000002 


002314' 1151: 


CMP 


♦2. TSTFLAG 


2651 


AA ^^^^ 
042266 


001006 






BNE 


125$ 


2652 


/\ A ^^^^ 
042270 


A 4 ^^^^ 

012700 


000377 




MOV 


♦377,R0 


2655 


^^^^ 
042274 


110021 




1201: 


MOVB 


RO.CRD* 


2654 


042276 


005300 






DEC 


RO 


2655 


^9 
042300 


005302 






DEC 


R2 


2656 


042302 


AAW7il 

003374 






BoT 


4 OA * 

120$ 


c05r 


042504 


A^^7*7 
022r 37 


000003 


002314' 1259 : 


CMP 


^3tTSTrLAG 


265o 


042312 


001005 






BNE 


135$ 


2659 


042314 


012700 


002752' 




MOV 


^TSTBLK ,R0 


2660 


042320 


4 4 ^A^4 

112021 




1301 : 


MOVB 


CRO;* ,CR1)* 


2661 


042322 


005302 






DEC 


R2 


2662 


042324 


003375 






BGT 


1301 


2663 


042326 






1351: 






^^^^ 
2664 


042326 


013700 


002310' 




MOV 


count.ro 


2665 


042332 


012701 


046244 ' 




MOV 


♦T17WF0ATA,Rl 




042336 


004737 


047612 




JSR 


PC.T17WFIF 


2667 


042342 


012704 


050110' 




MOV 


♦T17PK2.R4 


2660 


042346 


010465 


000000 




MOV 


R4.TS08CR5) 


2669 


042352 


004737 


016146' 




JSR 


PC.CMKTSSR 


CO f U 


042356 








FORCERROR 1421 


Oil. 71 
CD f 1 


042372 


103407 






BCS 


1501 


2672 


042374 


010001 






MOV 


RO.Rl 


CO r <9 


V^cO rO 








NEXT.ERRNO 


2674 


042376 






1421: 


ERRDF 


ERRNO . T175SSR . PKTSSR 




042376 


104455 










042400 


001153 












042402 


046576' 












042404 


011656' 










2675 


042406 


005237 


002222' 




INC 


FATFLG 


2676 


042412 
042412 


104406 




1501: 


CKLOOP 





I LOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 

I CLEAR EXPO BUFFER 

I EXPO WRITE FIFO DATA BUFFER 

tTEST PATTERN SIZE 

t INCREMENT PATTERN THIS TIME THRU? 

iBR IF NO 

I INCREMENT TEST PATTERN 
I STORE INCREMENT TEST BYTE 
tSET NEXT PATTERN 
I DONE? 
iBR IF NO 

I DECREMENT PATTERN THIS TIME THRU? 
I BR IF NO 

I DECREMENT TEST PATTERN 
(STORE DECREMENT TEST BYTE 
I SET NEXT PATTERN 
I DONE? 
tBR IF NO 

iTSTBLK PATTERNS THIS TIME THRU? 
iBR IF NO 

I'S/O'S ETC. TEST TABLE 
A TSTBLK BYTE 



J FLOAT 
I STORE 
I DONE? 
tBR IF NO 



2677 
2676 
2679 
2680 
2681 
2682 
2683 
2664 
2685 
2686 
2687 



iFIFO BYTE COUNT 

I FIFO URITE DATA ADDRESS 

I SETUP T17PK2 FOR WRITE FIFO 

iGET WRITE SUBSYSTEM COMMAND PACKET 

tSET THE PACKET ADDRESS TO EXECUTE 

I WAIT FOR SSR TO SET 

iSaOFORCE ERROR IF FORCER -1 
:BR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 

t DEVICE FATAL SSR FAILED TO SET 

TRAP CIERDF 
.WORD 619 
.WORD T175SSR 
.WORD PKTSSR 

:SET FATAL ERROR FLAG 
tLOOP ON ERROR. IF FLAG SET 

TRAP OCLPl 



042414 
042420 
042424 
042430 
042434 
042450 
042452 
042454 
042454 
042454 



004737 047524' 

012704 050110' 

010465 000000 

0047S7 016146* 

103407 
010001 



104455 



157»i 



Do a Write Subsystem READ STATUS 
JSR PC.T17SRD 
MOV ♦T17PK2.R4 
MOV R4.TSDB(R5) 
JSR PC.CHKTSSR 
FORCERROR 157 > 

BCS 1601 
MOV RO.Rl 
NEXT.ERRNO 

ERRDF ERRNO. T173SSR .PKTSSR 



I SETUP PACKET FOR READ STATUS 
iGET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
I WAIT FOR SSR TO SET 

iSSDFORCE ERROR IF FORCER -1 
>BR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 

TRAP CIERDF 



B12 



TSV5 
TEST 



• HAROUARE TESTS MACRO MlllS Ol-FEB-64 17:02 
6: SUBTEST S: FIFO WRITE MULTIPLE BYTES TEST 



26M 
2699 

2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2696 
2699 
?700 
2701 
2702 
2705 
2704 
2705 
2706 
2707 
2706 
2709 
2710 
2711 



2712 

271$ 
2714 
2715 
2716 
2717 
2716 
2719 
2720 
?72l 
2722 
2723 
2724 



2725 
2726 

2727 
2726 
2729 
27S0 



042456 
042460 
042462 
042464 
042470 
042470 



042472 
042476 
042502 
042506 
042510 
042512 
042516 
042522 
042526 



042532 
042534 
042540 
042544 
042550 
042554 
042564 
042566 
042566 
042566 
042570 
042572 
042574 
042576 
042576 



042600 
042604 
042610 
042614 
042620 
042624 
042640 
042642 
042644 
042644 
042644 
042646 
042650 
042652 
042654 
042660 
042660 



042662 
042664 



001154 
046466' 

011656' 

C05237 002222' 



104406 



004737 
012701 
012702 
012221 
011211 
052711 
052711 
042711 
042711 



160t: 



047706' 
046142' 
050002' 



000020 
000040 
000200 
000100 



005000 

012701 047762' 

012702 046122' 

012703 000024 
004737 011310' 

103404 



104456 
001155 
047063* 
012160- 

104406 



013700 002310' 

004737 047646* 

012704 050110* 

010465 000000 

004737 016146' 

103407 
010001 



104455 
001156 
046642* 
011656* 

005237 002222' 
104406 



005000 

012702 046244' 



1621: 



172«: 



160t: 



INC 

CKLOOP 



FATFLG 



.WORD 
,U0R0 

.'JORD 

I SET FATAL ERROR FLAG 
iLOOP ON ERROR, IF FLAG SET 

TRAP 



SEQ 144 



620 

T173S5R 
PKTSSft 



CICLPl 



S«t WORDS 0-7 of •KPd nmmm 

JSR PC.T17SeTEXP 

NOV •ri7EXSTA.Rl 

NOV •T178rSTA.R2 

NOV (R2)».CR1)* 

NOV (R2).CR1) 

BIS •S2.I»«0Y.(R1) 

BIS •S2.0UTR0Y.(R1) 

BIC •S2.0IN.(R1) 

BIC •S2.ILU.(R1) 



buff or • to rocv oinco net tooting 
I SET WORDS 0-7 EXPO-RECV 
iGET EXPECTED READ STATUS 
iGCT RECV READ STATUS 
I SET EXPD WORD •B • RECV TEHP 
iSET EXPD WORD #9 • RECV TENP 
I SET EXP INPUT READY- 1 
iSET EXP OUTPUT READY- 1 



I SET EXP DATA IN NISS • 0 
I SET EXP LAST WORD (ILU)-O 
If Trvut Roatfy }«aT-l then Print Error 

If Output Rootfy NOT-1 or Doto in Nioo NOT-0 Thon Print Error 



CLR 
NOV 
NOV 
NOV 
JSR 



AO 

•TlTBFR.Rl 
•T17EXP.R2 
•20. .RS 

PC.CKNSG2 



162I.N0TSSR 



FORCERROR 
BCS 1701 
NEXT • ERRHO 
ERRNRO ERRN0.T17SCNP.NSGSTAT 



I NIGH RECV ADDRESS FOR CKNSG2 
I LOU RECV ADDRESS FOR CKNSG2 
lEXPD ADDRESS 

iNUMBER OF BYTES TO CONPARE 
I EXPD EQUAL RECV? 



BR IF YES 



1701: CKLOOP 



I REPORT ERROR 



tLOOP ON ERROR. 



TRAP 



.UORD 
.WORD 
IF FLAG SET 
TRAP 



CfERMO 
621 

T173CNP 
NSGSTAT 

CfCLPl 



Do Urito Suboyotoa READ FIFO 

NOV COUNT. RO 

JSR PC.T17RFIF 

NOV •T17PK2.R4 

NOV R4,TSD8(R5) 

JSR PC.CHCTSSR 

FORCERROR 172t 

BCS laoi 

NOV RO.Rl 
NEXT.ERRNO 

E<WOF ERRND.T176SSR.PKTSSR 



INC FATFIG 
CKLOOP 



I SET READ BYTE COUNT 

iSETUP T17PK2 FOR READ FIFO 

iGET WRITE SUBSYSTEN COItl AN D PACKET 

I SET T»C PACKET ADDRESS TO EXECUTE 

I WAIT FOR SSR TO SET 

iMDFORCE ERROR IF FORCER- 1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 

iDEVICE FATAL SSR FAILED TO SET 

TRAP CtERDF 
.WORD 622 
.WORD T176SSR 
.WORD PKTSSR 

I SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP CtCLPl 



If Doto road fro* FIFO NOT- to Data aont Than Print Error 
CLR RO I HIGH RECV ADDRESS FOR CKNSG2 

NOV •T17WFDATA.R2 iGET EXPECTED ADDRESS FOR CKNSG2 



SEQ 145 



2731 




012701 


0^0002 






01S703 


002310 






fit 












27S5 


042714 


105406 




2756 


042716 






2757 


042716 


013701 


002510' 


2758 


04^ 722 








04^722 


104456 






042 /?4 


001157 






042726 


047252* 






042750 


012000' 




2759 


042752 








042752 


104406 





192 



2740 
2741 
2742 
2745 
2744 
2745 
2746 
2747 
2748 
2749 
2750 



2751 
2752 

2753 
2754 
2755 
2756 
2757 
2756 
2759 
2760 
2761 
2762 
2765 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2775 



042754 
042740 
042744 
042750 
042754 
042770 
042772 
042774 
042774 
042774 
042776 
045000 
045002 
045004 
045010 
045010 

042012 
045016 
045022 
045026 
045050 
045052 
045056 
045042 
043046 



045052 
045054 
045060 
045064 
045070 
045074 
045104 
045106 
045106 
043106 
045110 
045112 
045114 



004757 047524* 

012704 050110* 

010465 000000 

004757 016146' 

105407 
010001 



104455 

001160 
046466* 

011656* 

005257 002222' 



104406 

004757 
012701 
012702 
012221 
011211 
052711 
042711 
042711 
042711 



047706' 
046142' 

050002' 



000020 
000040 
000200 
000100 



212* : 



220t: 
t 



005000 

012701 047762' 

012702 046122' 
012705 000024 
004757 011510' 

105404 



104456 

001161 
047147' 

012160' 



232ti 



nOV •T17BrSTA,Rl 

nOV COUNT. R3 

JSR PC.CKtiSG2 

FORCERftOf) 192t.N0TSSR 

BCS 2C0* 

NEXT.ERRNO 

nOV COUNT. Rl 

ERRHRO ERRN0.T175CnP.FIFEXP 



iGET RECEIVED ADDRESS FOR CKnSC2 
iNUWER OF BYTES TO COMPARE 
I EXPO EQUAL RECV? 



200 CKLOOP 



I BR IF YES 

I GET BYTE COUNT 
I REPORT ERROR 

TRAP CIERHRO 
.WORD 623 
.WORD Tl75C»f» 
.UORO FIFEXP 
iLOOP ON ERROR. IF FLAG SET 

TRAP CICLPI 



UrSt* SubsystMi READ STATUS 
PC,Tl7SfcD 



Do I 
JSR 

NOV •T17PK2.R4 
NOV R4.TS0B(R5) 
JSA PC.OtCTSSR 
FORCEfMOR 212t 
BCS 220» 
NOV RO.Rl 
NEXT.ERRNO 

ERROF ERRN0.T175SSR.PKTSSR 



INC 

CKLOOP 



FATFLG 



S«t UOROS 0-7 of •xpd 

JSR PC.T17SETE)*^ 

NOV #T17EXSTA.R1 

NOV •T17aFSTA.R2 

NOV (R2>*.(R1)* 

NOV (R2).(R1) 

BIS •S2.INR0Y.(R1) 

BIC •S2.0UTR0Y.(R1) 

BIC •S2.0IN.(R1) 

BIC •S2.ILU.(R1} 



If Input R««dy NOT-1 than Print Err«r> 



iSETliP PACKET FOR READ STATUS 
iGET URITE SUBSYSTEM COmANO PACKET 
iSET TIC PACKET ADDRESS TO EXECUTE 
iMAIT FOR SSR TO SET 

iBBOFORCE ERROR IF FORCER -1 
iBR IF CARRY SET (GOOD RETURN) 
•SAVE CONTENTS OF TSSR 

lOEVICE FATAL SSR FAILED TO SET 

TRAP CtERDF 
.yORD 624 
.UORD T175SSR 
.WORD PKTSSR 

I SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP CtCLPl 
buffer • to rocv oinco not toot i no 
tSET WORDS 0-7 EXPO-RSCV 
•GET EXPECTED READ ST»iTUS 
iGET RECV READ STATUS 
iSET EXPO UORD M • RECV TENP 
iSET EXPO MORO 09 - RECV TENP 
I SET EXP I»«>UT READY- 1 
I SET EXP OUTPUT READY- 0 
I SET EXP DATA IN HISS - 0 
I SET EXP LAST lARO (ILU)-O 



If Output Roo^ NOT-0 or Doto 
CLR RO 
NOV •T17BFR.R1 
NOV •T17EXP.R2 
NOV *20. .R5 
JSR PC.CKMSG2 
FORCERROR 252t.N0TSSR 
BCS 2401 
NEXT.ERRNO 

ERRHRO ERRN0.ri74CNP.nSGSTAT 



in Nioo NOT-0 Thon Print Error 
I HIGH RECV ADDRESS FOR CKNSG2 
I LOU RECV ADDRESS FOR CKNSG2 
lEXPO ADDRESS 

iNUNBER OF BYTES TO COMPARE 
I EXPO EQUAL RECV? 



TRAP 
.WORD 
.WORD 
.UORD 



iBR IF YES 
t REPORT ERROR 



CtERHRD 

625 

T174CMP 
MSGS TAT 



TSVS - »«AROWMIC TESTS HACRO Ml LIS 01 -FEB -84 17 tO? 
TEST 6: SUBTEST 5: FIFO URITE HULTIPLE BYTES TEST 



Dl? 



2774 

2775 
2776 
2777 
2778 
2779 
2780 
2781 
2782 
2783 
2764 
2785 



2786 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 
2795 
2796 
2797 
2796 
2799 
2800 
2801 
2802 
2603 
2804 
2605 
2606 
2807 
2808 
2809 
2610 
2811 
2812 
2813 
2614 



2815 
2616 
2817 
2616 
2819 
2620 
2621 



043116 
043116 
04S120 
043130 
043134 
043142 
043144 
043150 
043154 
043162 
043164 
043170 
043170 
043170 
043170 

043172 
043176 
043200 
043204 



043204 
043204 
043204 



043206 
043206 
043212 
043214 
043216 
043216 
043220 
04S222 
043224 



104406 

005237 002310' 

023727 002310* 000077 
101002 

000137 042140' 

005237 002314' 

023727 002514' OOOOOS 
101002 

000137 042152' 



104405 

005737 002222' 
001402 

004757 017014' 



240t: CKLOOP 

FORCEXIT 
INC 
CMP 
BHI 

250* : INC 
CHP 
BHI 



250* 



25St: 



COUNT 
COUNT. #77 
250* 
100* 
TSTFLAG 
TSTFLAG.M 
2S5« 
95* 



SEQ 146 



C«CLPl 



260»: 



ENDSUB 



TS1 
BEQ 
JSR 



FATFLC 
260» 

PC.CKOROP 



ILOOP ON ERROR. IF FLAG SET 

TRAP 

!gET next byte COUNT 
lOONE 0 TO 77 
tBR If YES 

tOO ANOTHER BYTE COUNT 
tGET NEXT TEST PATTERN CODE 
:OONE INC.OCC.TSTBLK PATTERNS? 
tBR IF YES 

iDO ANOTHER TEST PATTERN 



I //////////// END SUBTEST ////////// 
L 10061: 

TRAP C«ES«JB 

I ANY FATAL ERRORS 7 

{BRANCH IF NOT 

iTRV TO DROP THE UNIT 



.SBTTL TEST 6: SUBTEST 4t FIFO V«rify ILU St«tus 



TEST 6: SUBTEST 4t 

SUBTEST DESCRIPTION: 

This subtMt v«rif !•• that reading th« FIFO 
Mpty e«uM« th« LMt Nerd (ILW) •tstus to 

TEST STEPS: 



it 

rt. 



BEGIN 



END 



Ur;t« to TSSR to ooft ;n:t:alijt« 

Do Ur;t« Sub«y«t«« READ FIFO mith byt« count cquol to 1 
Do • Urito SuboyotOM READ STATUS 
If Input Roody NOT-1 Thon Pr:nt Error 
If Output Roody NOT-0 Thon Print Error 
If Doto In nioo N0T*O Thon Print Error 
If Loot Uord (ILU) N0T*1 Thon Print Error 



BGNSUB 



104402 



004737 015604' 

103405 

010001 

104455 
001161 
003646' 
011644' 



I //////////// BEGIN SUBTEST ////////// 
T6.4: 

TRAP CIBSUB 



t 

5»i 



Urito to TSSR r«giotor to ooft initial! 20 th« controlUr 



JSR PC.SOFINIT 

BCS lot 

NOV RO.Rl 

ERRDF ERRNO.SFIERR.SFINSG 



iWRITE TO TSSR TO SOFT INITIALIZE 

iBR IF SOFT INIT OKAY 

tSAVE CONTENTS OF TSSR 

{DEVICE FATAL DURING INIT 

TRAP CIEROF 
.WORD 625 
.UORD SFIERR 
.UORD SFIHSG 



TSV5 • HARDWARE TESTS MACRO HI115 CL ^EB-S4 
TEST 6: SCeTEST 4: FIFO VERIFY ILW STATUS 



2622 








1 


2825 


043226 


00S057 


002222* 


101: 


2824 


043232 


012704 


04/740' 




2825 


043236 


004737 


010472' 




2826 


043242 








2827 


043256 


103407 






2828 


043260 


010001 






2829 


043262 








2830 


043262 






421: 




043262 


104455 








043264 


001162 








043266 


046365' 








043270 


011656' 






2831 


043272 


005237 


002222' 




2832 


043276 






SOI: 




043276 


104406 






2833 










2834 








t 


2835 


043300 


012700 


000001 




2836 


043304 


004737 


047646' 




2837 


043310 


012704 


050110' 




2838 


043314 


010465 


000000 




2839 


043320 


004737 


016146' 




2840 


043324 








2841 


043340 


103407 






2842 


043342 


010001 






2843 


043344 








2844 


043344 






1421 




043344 


104455 








043346 


001163 








043350 


046642' 








043352 


011656' 






2845 


043354 


005237 


002222' 




2846 


043360 






150$ 




043360 


104406 






2847 










2848 








I 


2849 


043362 


004737 


047524' 




2850 


043366 


012704 


050110' 




2851 


043372 


010465 


000000 




2852 


043376 


004737 


016146' 




2853 


043402 








2854 


043416 


103407 






2855 


043420 


010001 






2856 


043422 








2857 


043422 






1621 




043422 


104455 








043424 


001164 








043426 


046466- 








043430 


011656' 






2858 


043432 


005237 


002222' 




2859 


043436 






1701 




043436 


104406 






2860 








I 


2861 


043440 


004737 


047706' 




2862 


043444 


012701 


046142' 




2863 


04S4S0 


012702 


050002' 





17:02 



E12 



SEQ 14 7 



Do • URI7E CHARACTERISTICS to 

CLR FATFLG 

HOV ♦T17PACKET.R4 

JSR PC.URrCHR 

FORCERROR 421 

BCS SOI 

nOV R0»R1 

MEXT.ERRNO 

ERRDF ERRN0.T17SSR.PKTSSR 



iMQ* buffer 

TAC ERROR FLAG 



INC 

CKLOOP 



FATFLG 



Co Urito SubsyvtOM READ FIFO 

MOV tLRO 

JSR PC.TITRFIF 

nOV •T17PK2.ft4 

nOV R4.TS0B(R5) 

JSR PC.CMCTSSR 

FORCERROR 1421 

BCS 1501 

NOV RO.Rl 

NEXT.ERRNO 

ERRDF ERRN0.T176SSR.PKTSSR 



INC 

CKLOOP 



FATFLG 



•otiip I 

I CLEAR FAT^ 

I GET THE ADDRESS OF COmAND PACKET 
lOO URITE CHARACTERISTICS COTtlANO 

iSnrORCE ERROR IF FORCER- 1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 

(DEVICE FATAL SSR FAILED TO SET 

TRAP C«EROF 
.MORD 626 
.UORD T17SSR 
.UORO PKTSSft 

I SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 

Mth bvto count oquoL to 1 
I SET READ BYTE COUNT 
(SETUP T17PK2 FOR READ FIFO 
iGET URITE SUBSYSTEM COHNAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
tUAIT FOR SSR TO SET 

iBBOrORCE ERROR IF FORCER- 1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 

(DEVICE FATAL SSR FAILED TO SET 

TRAP CtEROF 
.UORO 627 
.UORO TI76SSR 
.UORO PKTSSR 

(SET FATAL ERROR FLAG 
(LOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 



SuboyotOM READ STATUS 
PC.TlTSfe 



Do • Writ* 

JSR 

NOV •Ti7PK2.R4 
NOV R4.TS0B(RS) 
JSR PC.CHKTSSR 
FORCERROR 1621 
BCS 1701 
NOV RO.Rl 
NEXT.ERRNO 

ERRDF ERRN0.T175SSR.PKTSSR 



INC 

CKLOOP 



FATFLG 



Sot UOROS 0-7 of oxpd 
JSR PC,T17SETEXP 
MOV #T17EXSTA.R1 
MOV •T17BFSTA.R2 



moooago 



(SETUP PACKET FOR READ STATUS 
(GET URITE SUBSYSTEM C O t l lAM D PACKET 
(SET THE PACKET ADDRESS TO EXECUTE 
(UAIT FOR SSR TO SET 

(8S0F0RCE ERROR IF FORCER- 1 
(BR IF CARRY SET CGOOD RETURN) 
(SAVE CONTENTS OF TSSR 

(DEVICE FATAL SSR FAILED TO SET 

TRAP CIEROF 
.UORD 628 
.UORD T17SSSR 
.UORD PKTSSR 

(SET FATAL ERROR FLAG 
(LOOP ON ERROR. IF FLAG SET 

TRAP CtCLPl 
buffor > to roev oinco not tooting 

(SET UORDS 0-7 EXPD-RECV 
(GET EXPECTED READ STATUS 
(GET RECV READ STATUS 



TSVS • HAROMRE 
TEST 6: SUBTEST 4t 



'«"?iromV'«3 s 



B-64 17:02 



F12 



SEQ 148 



2664 

2665 
2666 
2667 
2666 
2669 
2670 
2671 
2672 
2873 
2874 
2875 
2676 
2877 
2676 
2679 
2660 
2881 



2882 

2883 
2884 



2885 
2886 
2887 
2888 
2889 
2890 
2691 
2692 
2695 
2694 
2695 
2696 
2697 
2696 
2699 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2913 



043454 
043456 
043460 
043464 
043470 
043474 



043500 
043502 
043506 
043512 
043516 
043522 
043532 
043534 
043534 
043534 
043536 
043540 
043542 
043544 
043544 

043546 
043546 
043546 

043550 
043554 
043556 
043562 



012221 
011211 

052711 000020 

042711 000040 

042711 000200 

052711 000100 



005000 

012701 047762' 

012702 046122' 

012703 000024 
004737 011310' 



MOV (R2)*.(R1)* 

MOV (R2).(R1) 

BIS *S2.INR0Y.(R1) 

BIC «S2.0UTR0y.(Rl) 

BIC «S2.0IH.(R1) 

BIS #S2.ILU,(R1) 



I SET EXPO WORD «e - RECV TEMP 
I SET EXPO UORO #9 - RECV TEHP 
I SET EXP INPUT READY* 1 
I SET EXP OUTPUT READY- 0 
I SET EXP DATA IN MISS - 0 
I SET EXP LAST WORD (ILU)-I 



If Input Ready NOT-1 th«n Print Error 
If Output Ready N0T*0 or Oat* in Mi** N0T«0 iKtn Print Error 
If Laat Uord (ILW) NOT-1 Than Print Error 



CLR 
MOV 
MOV 
MOV 
JSR 



RO 

♦T17BFR.R1 
♦T17EXP.R2 
«20..R3 
PC.CKMSG2 



103404 



104456 

001165 
047306' 
012160' 

104406 



104403 

005737 002222' 
001402 

004737 017014* 



172I.N0TSSR 



172ti 



1801: 



FORCERROR 
BCS 180 > 
NEXT.ERRNO 

ERRHRO ERRNQ«T176CMP.NSGSTAT 



CKLOOP 



IHIGH RECV ADDRESS FOR CKMSG2 
I LOU RECV ADDRESS FOR CKMSG2 
I EXPO ADDRESS 

I NUMBER OF BYTES TO COMPARE 
I EXPO EQUAL RECV? 



I 

I BR 



IF YES 



•REPORT ERROR 



iLOOP ON ERROR. IF 



TRAP 
.UORD 
.UORD 
.UORO 
FLAG SET 
TRAP 



CIERMO 
629 

T176CMP 
MSGSTAT 

CICLPI 



260»: 



ENDSUB 



TST 
BEQ 
JSR 



FATFLG 
2601 

PC.CKOROP 



I //////////// END SUBTEST ////////// 
L10062: 

TRAP CIESUB 

tANY FATAL ERRORS ? 

•BRANCH IF NOT 

iTRV TO DROP THE UNIT 



.S8TTL TEST 6t SUBTEST 5: FIFO Varify Input Raady 



TEST 6: SUBTEST 5: 

SUBTEST DESCRIPTION 1 

Thia aubtaat varifiaa that Mriting 64. bytaa into tha FIFO 
Mithout raadino any out eauaaa tha Input Raady atatua to 



nagata. Tha Subtaat than varfiiaa that Mritina a 65th byta 
into tha FIFO eauaaa tha Data In Miaa atatua to aaaart. 



NaMt it !• varif iad that tha original 64 bytaa tan ba raad 
out corractly and that tha data haa not baan corrupted . 



TEST STEPS: 



BEGIN 



Urita to TSSR to aoft initiali^a 

Do a URITE CHARACTERISTICS to oatup a mmmq* buffer 

Do a Urite SubayatoM URITE *^ to aet tape direction out 

Do a Urite Subayate« URITE FIFO 64. bytoa incraina n tinQ pattern 

Do a Urite Subayatam READ STATUS 

If Input Ready NOT-0 Then Print Error 



G12 



TSVS HAROMWe TESTS flACRO HlllS 01 FEB M 17:02 
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SEO 149 



2914 

2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 



2950 
2951 
2952 
2953 
2954 
2955 
2936 



2957 
2958 
2959 
2940 
2941 
2942 
2945 
2944 
2945 



2946 
2947 

2948 
2949 

2950 
2951 
2952 
2955 
2954 
2955 
2956 
2957 
2958 
2959 



043562 
043562 
045562 



045564 
045564 
045570 
045572 
045574 
045574 
045576 
045600 
045602 

045604 
045610 
045614 
045620 
045654 
045656 
045640 
045640 
045640 
045642 
045644 
045646 
045650 
045654 
043654 



045656 
043662 
045666 
045672 
045676 
045702 
043716 
045720 
045722 
045722 



END 



If Output R*«tfy NOT-1 Th«n Priot Error 
If Data In nimm NOT-0 Jhmn Print Error 

Do • Writ* Sub«y«t«M URITE FIFO 1 byto for • total of 65. Mritton 

Do a Urita Subayata* REM) STATUS 

If Input Raady NOT-0 Than Print Error 

If Output Raa^ NOT-1 Than Print Error 

If Data In Hiaa NOT-1 Than Print Error 

Do Urita Subayata* READ FIFO 

If Data raad fro« FIFO NOT- to Data oant Than Print Error 

Do a Urita Subayata* READ STATUS 

If Input Raatfy N0T>1 Than Print Errcr 

If Output Raady NOT-0 Than Print Error 

If Data In Hiaa NOT-1 Than Print Error 



104402 



004757 015604* 

105405 

010001 

104455 
001165 
005646' 
011644* 

005037 002222' 
012704 047740* 
004757 010472' 

105407 
010001 



104455 

001166 

046565' 

011656' 

005257 002222' 
104406 



012700 000100 

004757 047566' 

012704 050110' 

010465 000000 

004757 016146' 

105407 
010001 



SI; 



101: 



42<: 



sot: 



1001; 



BGNSUB 



I //////////// BEGIN SUBTEST ////////// 
T6.5: 

TRAP CIBSUB 



Urita to rsSR roQiatar to aoft initializa tha controllar 



JSR PC.SOFINIT 

BCS lOt 

NOV RO.Rl 

ERRDF ERRNO.SFIERR.SFINSG 



Do a URITE CHARACTERISTICS to 

CLR FATFLG 

NOV «T17PACKET.R4 

JSR PC.URTCMt 

FORCERROR 421 

BCS sot 

NOV RO.Rl 

NEXT.ERRND 

ERRDF ERRN0.T17SSR,PKTSSR 



INC 

CKLOOP 



FATFLC 



102t: 



Do a Urita Subayata* URITE NPR 

NOV 4NP.0UT.ro 

JSR PC.T17SNPR 

NOV ♦T17PK2.R4 

NOV R4.TS06(R5) 

JSR PC.CHKTSSR 

FORCERROR 102 t 

BCS lost 

NOV RO.Rl 

NEXT.ERRNO 

ERRDF ERRN0.Tl74SSR.PKrSSR 



lURITE TO TSSR TO SOFT INITIALIZE 
iBR IF SOFT INIT OKAY 
tSAVE CONTENTS OF TSSR 
tOEVlCE FATAL DURING INIT 

TRAP CtERDF 
.UORO 629 

SFIERR 
SFINSG 
atup a aaaaaBa buf far 
iCLEAR FATAL ERROR FLAG 
iGET THE ADDRESS OF CONNAM) PACKET 
lOO URITE CHARACTERISTICS C O il W ND 

laaoFORcc error if forccr-i 

iBR IF CARRY SET (GOOD RETURN) 
•SAVE CONTENTS OF TSSR 

IDEVICE FATAL SSR FAILED TO SET 

TRAP CtERDF 
.UORO 650 
.UORD T17SSR 
.UORO PKTSSR 

tSET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP CtCL»l 

to aat tapa 4iractian out 
I SET TAK DIRECTION OUT 
I SETUP T17PK2 FQR URITE NPR 
I GET URITE SUBSYSTEN COHNAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
lUAIT FOR SSR TO SET 

iflKFORCE ERROR IF FORCER- 1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 

tDEVICE FATAL SSR FAILED TO SET 



HAROMARE TESTS MACRO 
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043722 


104455 






043724 


001167 






043726 


046533' 






043730 


011656' 






043732 


005237 


002222' 


2961 


043736 








043736 


104406 




2962 








2963 








2964 


043740 


012737 


000100 


2965 


043746 


012701 


046244' 


2966 


043752 


012702 


AAA« AA 

000100 


2967 


043756 


AAflf AAA 

005000 




296c 


043760 


110021 




2969 


043762 


AAC '^AA 

005200 




2970 


043764 


AAK V A'^ 

005302 




2971 


043766 


AA W TA 

003374 




2972 


043770 


A« 

013700 


AA*% V 4 A 1 

002310' 


2973 


043774 


A« *^^A4 

012701 


AA A ^ A A 1 

046244* 


2974 


/VA ^ AAA 

044000 


AAA ^ 

004737 


AA ^A « '\ t 

047612 


2975 


A^ A AAA 

044004 


A« ^^AA 

0127O4 


AKA« 4 A * 

050110 


2976 


044010 


A« AA AK 

010465 


AAAAAA 

000000 


2977 


AA ^ A« A 

044014 


AAA 

004737 


A* £ • A A • 

016146' 


'>A^tt 

2978 


AA A A^A 

044020 






2979 


044034 


103407 




2960 


044036 


A« AAA* 

010001 




*>AA • 

2901 


044040 






2962 


044040 








044040 


104455 






044042 


001170 






044044 


046576' 






044046 


011656' 




2963 


044050 


AAK 

005237 


002222' 


2964 


A A A AK 4 

044054 








AA A AK A 

044054 


104406 




2965 








2906 








^AM7 

2907 








^A*a 
2900 








2909 










AA A AKX. 

044056 


AAA ^ 

004737 


04 7524 * 


2991 


AJI A A^ ^ 

044062 


A« '%^AA 

012704 


050110' 


2992 


A^ ^ A^ ^ 

044066 


A • AA AK 

010465 


000000 


2993 


O44072 


AAA ^ 

004737 


016146' 


^99^ 


A A^^ 

044076 






2995 


044112 


• AVA A^ 

105407 






AAA 4 4 A 

044114 


A« AAA« 

010001 




c99f 


AAA 4 

044116 








/\AA % 1 4L 








044116 


104455 






044120 


001171 






044122 


046466' 






044124 


011656' 




2999 


044126 


005237 


002222' 


3000 


044132 








044132 


104406 




3001 









17:02 



H12 



SEQ 150 



INC 

CKLOOP 



FATFLG 



TRAP 
.WORD 
.WORD 
.WORD 

tSET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP 



C»ER0F 
6S1 

T174SSR 
PKTSSR 



CICLPl 



Do • Uri 


it* Sub«y«t«iii WRITE FIFO 64. byt*« ir>cr«M«ntioo pattern 


MOV 


•64..C0ONT 


lUKITc 64 BYTES 


MOV 


#T17WF0ATA.R1 


tP)rpn uPTTr rrrn data nirrcD 


NOV 


•64.. R2 


iTEST PATTERN SIZE 


CLR 


RO 


iINCRENENT TEST PATTERN 


NOVB 


RO.(Rl)* 


1 STORE INCRENENT TEST BYTE 


INC 


RO 


tSET NEXT PATTERN 


DEC 


R2 


lOONE? 


BGT 


1101 


iBR IF NO 


NOV 


COUNT. RO 


jFIFO BYTE COUNT 


NOV 


•T17WF0ATA.R1 


iFIFO WRITE DATA ADDRESS 


JSR 


PC.T17WFIF 


J SETUP T17PK2 FOR WRITE FIFO 


NOV 


♦T17PK2,R4 


•GET WRITE SUBSYSTEN CONNAfO PACKET 


NOV 


R4.TS0B(R5) 


tSET THE PACKET ADDRESS TO EXECUTE 


JSR 


PC.CHKTSSR 


iWAIT FOR SSR TO SET 


FORCERROR 1421 


iSSOFORCE ERROR IF FORCER- 1 


BCS 


ISO! 


iBft IF CARRY SET (GOOD RETURN) 


NOV 


RO.Rl 


iSAVE CONTENTS OF TSSR 


NEXT.ERRNO 




ERRDF 


ERRNO. T17SSSR.PKTSSR 


•DEVICE FATAL SSR FAILED TO SET 



INC 

CKLOOP 



FATFLG 



TRAP 
.WORD 
.WORD 
.WORD 

I SET FATAL ERROR FLAG 
{LOOP ON ERROR. IF FLAG SET 

TRAP 



C9ER0F 
652 

T175SSR 
PKTSSR 



C9CLP1 



Do • Writ* Suto«y«t««i READ STATUS 



If Input R*«dy NOT-O 
If Output R««dy NOT-1 
If Data In n;m NOT-0 
JSR PC.T17SRD 
NOV •T17PK2.R4 
NOV R4.TS06(R5) 
JSR PC.CHKTSSR 
FORCERROR 157 • 

BCS 160* 
NOV RO.Rl 
NEXT.ERRNO 

ERRDF ERRN0.T173SSR.PKTSSR 



Th«n Print Error 
Th«n Print Error 
Th«n Print Error 

I SETUP PACKET FOR READ STATUS 
iGET WRITE SUBSYSTEM COMNANO PACKET 
iSET THE PACKET ADDRESS TO EXECUTE 
tWAIT FOR SSR TO SET 

tflSOFORCE ERROR IF FORCER"! 
iBR IF CMRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 



•DEVICE FATAL SSR FAILED TO SET 

TRAP CtERDF 
.WORD 633 
.WORD T17SSSR 
.WORD PKTSSR 

INC FATFLG iSET FATAL ERROR FLAG 

CKLOOP iLOOP ON ERROR, IF FLAG SET 

TRAP C*CLP1 

Sot WORDS 0-7 of Okpd moosoo* buffer ■ to roev oinc* not tooting 



112 
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SEO 151 





A 


f o f 


V^ r r W 








■ QFT unonc A. 7 PvpAsp^rw 






AA414A 




&^c 




nv w 




IMC 1 CAP^CUICW ffCMU 9 1 M 1 V3 








Vac » Vc 


V3WVC 




HOW 


ATlTnrCTA B9 






Vim 




vlcccl 






HAW 


rB9) > rBi \ > 


iCPT FvPA unon jm • p^rw tp»^ 






A4A1 ^ 


vllcll 










ttf T FVPA unon AO ■ Dcrw tpmd 






\^*^ A 


A4^71 1 

' A A 


W^^CV 




Die 


•S2.INR0Y.(R1) 


FVP TMhJT DFAAVa A 

1 9w I wAr Ar^^V 1 ^C^V » w 






A4A1 Al) 


w«9C ' A A 


MVVVIO 

WV^^V 




DIS 


•S2.0UTR0Y,(R1) 


t^PT F)rP nUTPlJT Pf^AAVa 1 

1 9w 1 fcAr^ 1 ^w 1 nC^V » A 










\Ai#VCW 




Die 


#S2.0IN.(R1) 


i<iFT PXP AATJI TIU MTQQ • A 






0441 70 








CLR 


RO 


iHiGH RECV AOOP^^^ TAP flCM^AP 
iriii^^ nc\*v " W^'*9vc 






A44t 7P 


VAC t V A 


047762' 

r roc 




NOV 


#T17DFR.R1 


■ LOU PFrv Aoopp^^ TOP rvM^n^ 




SOIP 


044176 

WW* A ' w 


012702 

VAC ■ VC 


046122' 

^^^w ACC 




HOV 


•T17EXP.R2 






A W 




012703 


000024 




NOV 


•20.. RS 


1 NUMBER or BYTE^ TO TOMPAPP 






044206 


004737 


011310' 

W A A ^ A V 




JSR 


PC.CKNSC2 


i£XPD EQUAL k^Cy7 




ii*W A V 


044P1P 

AC 








FORCERROR 162I.N0TSSR 


lOflO 








103404 






DCS 


1701 


tM IF YES 






044PP4 








NEXT.ERRNO 














XOc V • 


ERftHRD 


ERRNO. T17SCNP.NSGSTAT 


•PPPADT PPDAD 






044224 


104456 










TRAP 


CIERHRO 






001172 

WV A A ■ C 










.UORO 


634 




044230 


047063' 










.WORD 


T175CNP 




04423P 


012160' 

VAC AW 










.UORO 


NSGSTAT 


3019 


044234 






170$ • 


CKLOOP 




iLOOP ON ERROR. IF FLAG SET 






044234 


104406 










TRAP 


C»CLPl 


30^ 


















30i21 

i^^r^fc A 


























• 

I 


Do • Urit* SUb«y«t«« URITE FIFO 


1 byt« for • total of 65. MPtttcn 


3Q2S 


044P36 


012700 

VAC ' W 


OOOOOl 

VWW A 




HOV 


•l.RO 


fFlFO DYTE COUNT 






044P4P 


012701 

VAC r V A 


046244 * 




NOV 


•T17UF0ATA.R1 


iFIFO URITE DATA ADDRESS 




5025 


044P46 


004737 


047612' 

■ VAC 




JSR 


PC.T17WFIF 


iSETUP T17PK2 FOR URITE FIFO 




3026 


044P52 


012704 

VAC » 


050110' 

V^V A AV 




NOV 


♦T17PK2.R4 


tGET URITE SUBSYSTEN CONNAND PACKET 


3027 


0442M 


01046S 


oooooo 

vwwv 




NOV 


R4.TS0D(RS) 


•SET T« PACKET ADDRESS TO EXECUTE 


3028 


044262 


004737 


0 16 146' 

w Aw A~V 




JSR 


PC.CMKTSSR 


tUAIT FOR SSR TO SET 




3029 


044266 








FORCERROR 1721 


iSSDFORCE ERROR IF FORCER-1 


3030 


044302 


103407 






DCS 


180* 


iBR IF CARRY SET (GOOD RETURN) 




3031 


044304 


OlOOOl 






NOV 


RO.Rl 


tSAVE CONTENTS OF TSSR 




3032 


044306 








NEXT.ERRNO 




30S3 


044306 






1721: 


ERROF 


ERRNO. T17SSSR .PKTSSR 


{DEVICE FATAL SSR FAILED TO SET 






044306 


104455 










TRAP 


CfEROF 




044310 


001173 










.UORO 


635 




044312 


046576' 










.WORD 


T175SSR 




044314 


011656* 










.UORO 


PKTSSR 


3034 


044316 


005257 


002222' 




INC 


FATFLC 


tSET FATAL ERROR FLAG 




SOSS 


044322 






1801: 


CKLOOP 




tLOQP ON ERROR. IF FLAG SET 






044322 


104406 










TRAP 


CICLPl 



3036 
3037 
3036 
3039 
3040 
3041 
3042 
3043 
3044 
3045 
3046 
3047 
3048 



044324 
044330 
044334 
044340 
044344 
044360 
044362 
044364 



004737 047524* 

012704 050110' 

010465 OOOOOO 

004737 016146* 

103407 
010001 



Do • Up it* Sub«y«t«M READ STATUS 
If Input Rfody N0T"O Th«o Print Error 

Than Print Error 



If Output R«»^ NOT-1 
If Data In Niaa NOT-1 

JSR PC.T17SR0 
NOV ♦T17PK2.R4 
NOV R4.TSDe(R5) 
JSR PC.CMKTSSR 
FORCERROR 1671 
eCS 1901 
NOV RO.Rl 
NEXT.ERRNO 



Than Print Error 

I SETUP PACKET FOR READ STATUS 
iGET URITE SUeSYSTEN CONNAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
tUAIT FOR SSR TO SET 

tSSDFORCE ERROR IF FORCER-1 
I BR IF CARRY SET (GOOD RETURN) 
tSAVE CONTENTS OF TSSR 



J12 



TSVS - HARDWARE TESTS MACRO MLLIS Ol-FEB-M 17:02 
TEST 6: SUBTEST 5: FIFO VERIFY INPUT READY 



5049 


044564 






1871: 


ERRDT ERRNO. T175SSRiPKTSSR 




044564 


104455 










044566 


001174 










044570 


046466' 










044572 


011656' 








50S0 


044574 


005257 


002222' 




INC FATFLG 


5051 


044400 






1901: 


CKLOOP 




044400 


104406 








5052 










S«t WORDS 0*7 of •xpo MMSM 


5055 


044402 


004757 


047706' 




JSR PC • T 1 7Sc TEXP 


5054 


044406 


012701 


046142* 




nOV #T17EaSTA,R1 


5055 


044412 


012702 


050002' 




MOV #T17BFSTA,R2 


5056 


044416 


012221 






nuV CR2)*.(Nl;» 


5057 


044420 


011211 






nuV CR2)*CR1^ 


5056 


044422 


042711 


000020 




BIC ♦S2.INRDT ,CR1) 


5059 


044426 


052711 


000040 




BIS ^S2 • OUTRDY • i RI i 


5060 


044452 


052711 


000200 




BIS #S2.0in»CRlJ 


5061 


044456 


005000 






f^k B BA 

CLR RO 


5062 


044440 


012701 


047762 




nuV #T17orH,Hl 


5065 


044444 


0\ m ^^^^ 

012702 


046122' 




nUV #T17CAr,H2 


5064 


044450 


012705 


000024 




nOV #20. .Ro 


5065 


044454 


004757 


011510' 




JSR PC.CKHS62 


5066 


044460 








FORCERROR 192 f t HOT SSR 


5067 


044470 


105404 






BCS 2001 


5066 


044472 








NEXT .ERRNO 


5069 


044472 






1921: 


ERRHRO ERRNO» T175CnP,nSGSTAT 




044472 


104456 










044474 


001175 










044476 


047065' 










044500 


012160' 








5070 


044502 






2001: 


CKLOOP 




044502 


104406 








5071 








1 


Do Unto SuboystM READ FIFO 


5072 


044504 


015700 


002510' 




NOV COUNT .RO 


5075 


044510 


004757 


047646' 




JSR PC.T17RFIF 


5074 


044514 


012704 


050110' 




MOV #T17PK2iR4 


3075 


044520 


010465 


000000 




MOV R4«TS0BCR5? 


5076 


044524 


004757 


016146' 




JSR PC.CMKTSSR 


3077 


044550 








PBB#^f BB^^A '^A 

FORCERROR 212 f 


5070 


044544 


105407 






BCS 2201 


3079 


044546 


010001 






^^\\t BB B4 

MOV RO,RI 












NCAl .CKNPIU 


5081 


044550 






2121: 


ERROf ERRN0.T176SSR.PKTSSR 




044550 


1044SS 










044552 


001176 










OM554 


046642- 










044556 


0116S6' 








5062 


044560 


OOS237 


002222' 




INC FATFLG 


50S5 


044564 






2201: 


CKLOOP 




044564 


104406 









SEQ 152 



I DEVICE FATAL SSR FAILED TO SET 

TRAP CtERDF 
.WORD 636 
.WORD T17SSSR 
.UORO PKTSSR 

I SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP CtCLPl 
buf f«r " to r«cv sine* not tMtino 
iSET WORDS 0-7 EXPO-RECV 
•GET EXPECTED READ STATUS 
I GET RECV READ STATUS 
iSET EXPD WORD 46 - RECV TE>1P 
iSET EXPD WORD 49 - RECV TEfT 
tSET EXP INPUT READY- 0 
I SET EXP OUTPUT READY- 1 
I SET EXP DATA IN niSS - 1 
tHIGH RECV ADDRESS FOR CKHSG2 
I LOW RECV ADDRESS FOR CKNSG2 
I EXPO ADDRESS 

{NUMBER OF BYTES TO COMPME 
tEXPO EQUAL RECV? 



CtERMRD 

637 

T173C»*» 
MSGSTAT 

CtaPl 



iBR IF YES 
{REPORT ERROR 

TRAP 
.WORD 
.WORD 
.WORD 

tLOOP ON ERROR. IF FLAG SET 

TRAP 



I SET READ BYTE COUNT 

I SETUP T17PK2 FOR READ FIFO 

{GET WRITE SUBSYSTEM COMMAND PACKET 

tSET THE PACKET ADDRESS TO EXECUTE 

iWAIT FOR SSR TO SET 

ifiSDFORCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOD RETURN) 
(SAVE CONTENTS OF TSSR 

t DEVICE FATAL SSR FAILED TO SET 

TRAP CtERDF 
.WORD 630 
.WORD T176SSR 
.WORD PKTSSR 

I SET FATAL ERROR FLAG 
(LOOP ON ERROR. IF FLAG SET 

TRAP CtCLPl 



30S4 
3065 
3086 
3087 
3088 
3089 
3090 



044566 005000 

044570 012702 046244' 

044574 012701 050002' 

044600 013703 002310' 

044604 004737 011310' 



If Data raad from FIFO NOT- to Data aant Than Print Error 



CLR RO 

MOV •T17WF0ATA.R2 

MOV ♦T17BFSTA,R1 

MOV COUNT. R3 

JSR PC.CKMSG2 



{HIGH RECV ADDRESS FOR CKMSG2 
I GET EXPECTED ADDRESS FOR CKMSG2 
I GET RECEIVED ADDRESS FOR CKMSG2 
{NUMBER OF BYTES TO COMPARE 
lEXPD EQUAL RECV? 



K12 



TSVb - HAROUM^ TESTS 
TEST 6: SUBTEST 5 " 

























Wc<^XV 










1044SI^ 






001 1 77 

WX X f f 






047232' 




044654 


012000' 




3096 044636 






044636 


104406 




3097 






5096 






5099 






5100 






5101 






5102 044640 


004757 


047524' 


5105 044644 

^^^^^^^^ ^ ^ 


012704 


050110' 


5104 044650 


010465 


000000 


5105 044654 


004757 


016146' 


5106 044660 






5107 044674 


105407 




5108 044676 


010001 




5109 044700 






5110 044700 






044700 


104455 




044702 


001200 




044704 


046466' 

w 




044706 


0116S6' 

WX Xw^V 




5111 044710 


005257 


002222' 


5112 044714 






044714 


104406 

XW^ VWW 




5115 






5114 044716 


004737 


047706' 

f f Ww 


5115 044722 


012701 

WXC • WX 


046142' 


5116 044726 


012702 

w xs • wc 




5117 044752 


012221 




5116 044754 


011211 

wxxcxx 




5119 044756 


OS2711 

W^K > XX 


000020 


5120 044742 


042711 

W^fc > XX 


000040 
wwww^w 


5121 044746 


052711 

Wa#C > XX 


000200 


5122 044752 


005000 


5125 044754 


012701 


047762' 


5124 044760 


012702 


046122' 

W^ W X&fc 


5125 044764 


012705 


000024 


5126 044770 


004757 


011310' 

WX X«F*W 


5127 044774 




5128 045004 


105404 




5129 045006 






5150 045006 






045006 


104456 




045010 


001201 




045012 


047147' 




045014 


012160' 




5151 045016 






045016 


104406 





MACRO Ml in 01-FEI 
FIFO VERIFY INPUT READY 



Ol-FEB-84 17:02 



SEQ 155 



240<: 



252 <: 



260<: 
( 



272$: 



252».N0TSSR 



FORCERROR 
BCS 240 t 
NEXT.ERR^40 
MOV COUNT. Rl 
ERRHRO ERRN0.T175CMP.FIFEXP 



CKLOOP 



iSfiO 

I BR IF YES 

I GET BYTE COUNT 
I REPORT ERROR 



I LOOP ON ERROR. 



TRAP 
.WORD 
.WORD 
.UORO 
IF FLAG SET 
TRAP 



OERHRO 
639 

T175CMP 
FIFEXP 

CICLPl 



Do a Writ* Sul»«y*t*m READ STATUS 



If Input R*«dy NOT-1 
If Output R*«dy NOT-O 
If Data In Mia* NOT-1 
PC.T17SR0 
«T17PK2.R4 
R4,TS06(R5) 
PC.C>«<TSSR 

2521 



JSR 
MOV 
MOV 
JSR 

FORCERROR 
BCS 260$ 
MOV RO.Rl 
NEXT.ERRNO 

ERROF ERRN0.T173SSR.PKrSSR 



Than Print Error 
Than Print Error 
Than Print Error 

t SETUP PACKET FOR READ STATUS 
iGET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
I WAIT FOR SSR TO SET 

l8fl)F0RCE ERROR IF FORCER -1 
iBR IF CARRY SET (GOOD RETURN) 
iSAVE CONTENTS OF TSSR 



I DEVICE FATAL SSR FAILED TO SET 

TRAP C$EROF 
.WORD 640 
.UORO T173SSR 
.UORO PKTSSR 

INC FATFLG iSET FATAL ERROR FLAG 

CKLOOP tLOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 

Sat UOROS 0-7 of axpd naaiao* buffar - to racv ainca not tasting 



JSR PC.T17SETEXP 

MOV «T17EXSTA.R1 

MOV ♦T17BFSTA.R2 

MOV (R2)*.(R1)* 

MOV (R2).(R1) 

BIS *S2.INR0Y.(R1) 

BIC «S2.0UTRDY.(R1) 

BIS #S2.0IN.CR1) 

aR RO 

MOV #T17BFR,R1 

MOV «T17EXP.R2 

MOV taO. .R3 

JSR PC.CKMSG2 
FORCERROR 272».N0TSSR 

BCS 260$ 
NEXT.ERRNO 

ERRHRD ERRN0.T174CMP.MSGSTAT 



tSET UOROS 0-7 EXPO-RECV 
I GET EXPECTED READ STATUS 
(GET RECV READ STATUS 
tSET EXPO UORO «6 - RECV TEMP 
iSET EXPO UORO 49 - RECV TEMP 
I SET EXP INPUT READY- 1 
I SET EXP OUTPUT READY- 0 
I SET EXP DATA IN MISS - 1 
I HIGH RECV ADDRESS FOR CKMSG2 
I LOU RECV ADDRESS FOR CKHSG2 
I EXPO ADDRESS 

jNUMBER OF BYTES TO COMPARE 

I EXPO EQUAL RECV? 

tSOO 

I BR IF YES 



280$ : CKLOOP 



I REPORT ERROR 



(LOOP ON ERROR. 



31S2 



TRAP 
.UORO 
.UORO 
.UORO 
IF FLAG SET 
TRAP 



C$ERHRD 
641 

T174CMP 
MSGSTAT 

C$CLP1 



L12 



TSVS - HARDWARE TESTS 
TEST 6: SUBTEST 5: F 



UT 



3133 



3134 
3135 
3136 
3137 
3136 
3139 
3140 
3141 
3142 
3143 
3144 
3145 
3146 
3147 
3146 
3149 
3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 
3156 
3159 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3168 
3169 
3170 
5171 
3172 
3173 
3174 
3175 
3176 
3177 
3178 



3179 
3180 
3181 
3182 
3183 
3184 
3185 



045020 
045020 
045020 

045022 
04S026 
045030 
045034 



17:02 



ENOSUe 



104403 

005737 002222' 
001402 

004737 017014* 



SEO 154 



I //////////// END SUBTEST ////////// 
L 10063: 

TRAP CIESUB 



300>: 



TST 
BEQ 
JSR 



FATFLC 
300t 

PC.CKOROP 



I ANY FATAL ERRORS 7 

•BRANCH IF NOT 

tlRY TO DROP THE UNIT 



.SBTTL TEST 6: SUBTEST 6: FIFO V«rify R«««t FIFO T««t 



045034 
045034 
045034 



045036 
045036 
045042 
045044 
045046 



TEST 6: SUBTEST 6: 

SUBTEST DESCRIPTION: 

This subtMt v«rif that th« R«««t FIFO function within 
th« Writ* Hi»e«llan«ou« Control 1 function initiolizoo 
th« FIFO to eorroct intial status. Ths follOMino staps 
ara parforiwad. 

1. Rasat an alraady initializad FIFO and chack for 
propar status. 

2. Urita a varying nunbar of bytas (1-65.) into tha 
FIFO and varify that aftar aaeh block of bytas is 
Mrittan tha FIFO can ba ba rasat to it's inittal 
stata. 

TEST STEPS: 
BEGIN 



Urita to TSSR to soft initializa 
Oo a WRITE CHARACTERISTICS to satup a 



buffar 



Oo a Urita Subsystam Urita Miac to Rasat FlPo 
Oo a Urita Subsystam READ STATUS 
If all Tapa Statua 2 CICER.IFm.IHER) flip-flop 

signals NOT*0 Than Print Error 
Oo a Urita Subsystam URITE NPR to sat tapa diraction out 



REPEAT FOR BYTE COUNT 1 TO 65. 
BEGIN 

Oo a Urita Subsystam URITE FIFO with tha currant byta count 
Oo a Urita Subsysta* Urita Misc to Rasat FIFO 
Do a Urita Subsystam READ STATUS 
If all Tapa Statua 2 CICER.IFMC.IHER) flip-flop 
signals N0T«0 Than Print Error 

END 



BGNSUB 



104402 



004737 015604' 

103405 

010001 



I //////////// BEGIN SUBTEST ////////// 
T6.6: 

TRAP C»BSU8 



I 

5$: 



Uritc to TSSR rag i star to soft initialize tha controller 



JSR PC.SOFINIT 

BCS 10$ 

NOV RO.Rl 

ERROF ERRNO.SFIERR.SFINSG 



tURITE TO TSSR TO SOFT INITIALIZE 
I BR IF SOFT INIT OKAY 
(SAVE CONTENTS OF TSSR 
I DEVICE FATAL DURING INIT 



TSV5 
TEST 



M12 



6: 



HAROgAR| 



AVI 



iromV4HET 



SEQ 155 





04S046 








045050 


001201 






045052 


003646* 






045054 


011644' 




3186 








3187 


045056 


005037 


002222' 


3188 


045062 


012704 


047740' 


3189 


045066 


004737 


010472' 


3190 


045072 






3191 


045106 


103407 




3192 


045110 


010001 




3193 


045112 






3194 


045112 








045112 


104455 






045114 


001202 






045116 


046365' 






045120 


011656' 




3195 


045122 


005237 


002222' 


3196 


045126 








045126 


104406 




3197 








3198 


045130 


004737 


047544' 


3199 


045134 


012704 


050110' 


3200 


045140 


010465 


000000 


3201 


045144 


004737 


016146' 


3202 


045150 






3203 


045164 


103407 




3204 


045166 


010001 




3205 


045170 






3206 


045170 








045170 


104455 






045172 


001203 






045174 


046422' 






045176 


011656' 




3207 


045200 


005237 


002222' 


3208 


045204 








045204 


104406 





10$: 



42$: 



50$: 
I 



3209 
3210 
3211 
3212 
3213 
3214 
3215 
3216 
3217 
3216 
3219 
3220 
3221 



3222 
3223 



045206 
04S212 
04S216 
045222 
045226 
045242 
045244 
045246 
045246 
045246 
045250 
045252 
045254 
045256 
045262 
045262 



004737 047524' 

012704 050110' 

010465 000000 

004737 016146' 

103407 
010001 



104455 
001204 
046466' 

011656' 

005237 002222' 
104406 



62$: 



70$: 



77$: 



60$: 



Do a URITE CHARACTERISTICS to 

CLR FATFLG 

HOV •T17PACKET.R4 

JSR PC.URTCHR 

FORCERROR 42* 

BCS 50$ 

MOV RO.Rl 

NEXT.ERRNO 

ERROF ERRN0.T17SSR.PKTSSR 



INC 

CKLOOP 



FATFLG 



Do • Writ* SubsystMi Writ* ni 

JSR PC.T17RSFIF 
nOV *T17PK2.R4 
MOV R4.TS0e(R5) 
JSR PC.CHKTSSR 
FORCERROR 62$ 
BCS 70$ 
MOV RO.Rl 
NEXT.ERRNO 

ERROF ERRN0.T172SSR.PKTSSR 



TRAP C$EROF 
.UORD 641 
.WORD SFIERR 
.HORO SFIMSG 

Mtup • m*«»ao* buffer 

I CLEAR FATAL ERROR FLAG 

I GET THE ADDRESS OF COMMAND PACKET 

I DO URITE CHARACTERISTICS COMMAND 

iSSDFORCE ERROR IF FORCER- 1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



I DEVICE FATAL SSR FAILED TO SET 

TRAP C$EROF 
.UORD 642 
.UORO T17SSR 
.UORD PKTSSR 

I SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP C$CLP1 

to RM«t FIFO 

I SETUP PKT FOR URITE MISC RESET FIFO 
iGET URITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
I WAIT FOR SSR TO SET 

iMOFORCE ERROR IF FORCER- 1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



•c 



INC 

CKLOOP 



FATFLG 



I DEVICE FATAL SSR FAILED TO SET 

TRAP CIEROF 

.UORD 643 

.UORD T172SSR 

.UORD PKTSSR 

(SET FATAL ERROR FLAG 
tLOOP ON ERROR. IF FLAG SET 

TRAP C$CLP1 



Do • Urit* Sub«y«t«m READ STATUS 

If all Tap* Status 2 CICER.IFm.IHER) flip-flop 

signal* NOT-0 Than Print Error 
JSR PC.T17SRD 
MOV ♦T17PK2.R4 
MOV R4.TS0B(RS) 
JSR PC.CHKTSSR 
FORCERROR 77$ 
BCS 80$ 
MDV RO.Rl 
NEXT.ERRNO 

ERROF ERRN0.T173SSR.PKTSSR 



I SETUP PACKET FOR READ STATUS 
sGET URITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
iUAIT FOR SSR TO SET 

lOSOFORCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



INC 

CKLOOP 



FATFLG 



I DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 
.UORO 644 
.UORD T173SSR 
.UORO PKTSSR 

iSET FATAL ERROR FLAG 
{LOOP ON ERROR. IF FLAG SET 

TRAP c$api 



TSV5 - HAROUMIE TESTS 
TEST 6: SUBTEST 6 ~ 



MACRO H1113 01-FEB-a4 
FIFO VERIFY RESET FIFO TEST 



17:02 



N12 



SEQ 156 



5224 


045264 


004757 


047706 


JbR 


PC t T17bt TcAr 


ibcT MUHDb 0-7 tXPD^RtCV (NOT 


'ESTING) 


5225 


045270 


012701 


046142' 


nuv 


♦T17tA5TM.Rl 


^r*CT CVQC^TCA DCAA CTATlIC 

iGcT caPcCTcD RcMD bTATUb 




5226 


045274 


012702 


050002 


nuv 


ATI TOrCTA DO 

vTl for bin •H2 


*r*CT DC^W DCAA CTATlIC 

tbcT HclV HcAD blAlUb 




TOO? 

522/^ 


043500 


A4 4 04 4 
011211 




nuv 


vH2 J t IHl } 


Ibcl caKU WUHU ■ KcLV icnK 




52cO 


045502 


/Vil07« % 

042711 


AAOAAA 
002000 




Vbl . ILCH 9 \ HX J 


tbCl CArU ILcK "U 




5229 


045506 


042711 


AA4 AAA 

OOIOOO 


BIC 


♦Sl.IFMK.(Rl) 


.CCT CVDn TCMK aA 
Ibcl CAKU IrlTK "U 




52 5U 


/VACTi O 

043dI2 


042/^11 


AAA^AA 


BIC 


«S1.IHER.(R1) 


1 be 1 CAKU incK "U 




5251 


043dlD 


O 15261 


AAAAAO AAAAAO 


HOV 


2(R2).2(R1) 


1 bC 1 CAfU MUKU V7 ■ KCLV V NU 1 




5252 


043524 


AACAAA 

0U5000 




CLR 


RO 


inxijn ncv.v HUUKCbb rUN Ll^^buc 




vow 


04332D 


A1 O'TAI 

012 rOl 


04 7 7o2 


MOV 


♦T17BFR.R1 


• 1 nu DPCw Af^nDPcc pad f^^Mcno 
IL.UW KCLV HUUKCbb r UK LKnbuc 








A1 OTAO 
U12 r02 




MOV 


♦T17EXP,R2 


■ p wf\ Annop CC 

1 C AKU nUUft C bb 








A1 07AV 
U12 rUd 


AAAAOA 


MOV 


*20..R3 


• MMRPD np nvTPc Tn phmdadp 
1 nfunocn ur dt icb lu cutv'hkc 








AAA7TT 


A1 1 VIA* 


JSR 


PC.CKMSG2 


ICAKU cuunu nCUV f 




XOX'7 








FORCERROR 92I.N0TSSR 


1 wu 








103404 




BCS 


1001 


•BR IF YES 




3239 


045360 






NEXT.ERRNO 






3240 


045360 




92*: 


ERRHRD 


ERRNO . T 177CnP . HSGST AT 


(REPORT ERROR 






045360 


104456 








TRAP 


C(ERHRD 




045362 


001205 








.WORD 


645 




045364 


047414' 








.WORD 


T177CMP 




045366 


012160' 








.WORD 


HSGSTAT 


3241 


045370 




loot: 


CKLOOP 




{LOOP ON ERROR. IF FLAG SET 






045370 


104406 








TRAP 


CICLPl 



3242 
3243 
3244 
3245 
3246 
3247 
3248 
3249 
3250 
3251 
3252 
3253 



3254 
32S5 

3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 



045372 


012700 


000100 


045376 


004737 


047566' 


045402 


012704 


050110' 


045406 


010465 


000000 


045412 


004737 


016146' 


045416 






045432 


103407 




045434 


010001 




045436 






045436 






045436 


104455 




045440 


001206 




045442 


046533' 




045444 


011656' 




045446 


005237 


002222' 


045452 






045452 


104406 





1121: 



1201: 



Do a Writ* Subsystem URZTE NPR 

MOV ANP.OUT.RO 

JSR PC,T17SNPR 

MOV «T17PK2,R4 

MOV R4.TSDBCR5) 

JSR PC.CHCTSSR 

FORCERROR 1121 

BCS 120t 

MOV RO.Rl 

NEXT.ERRNO 

ERROF ERRNO. T174SSR.PKTSSR 



INC 

CKLOOP 



FATFLG 



to Mt tap* di Taction out 
I SET TAPE DIRECTION OUT 
t SETUP T17PK2 FOR WRITE NPR 
I GET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
(WAIT FOR SSR TO SET 

tSSOFORCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOD RETURN) 
(SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 

TRAP CtERDF 

.WORD 646 

.WORD T174SSR 

.WORD PKTSSR 

:SET FATAL ERROR FLAG 
(LOOP ON ERROR. IF FLAG SET 

TRAP C$CLP1 



045454 
045460 
045464 
045466 
045470 
045472 
045474 



012701 
012702 
005000 
110021 
005200 
005302 
003374 



046142' 
000100 



1301: 



Setup i ncramant i no pattern in FIFO data buffer 

MOV «T17EXSTA.R1 :EXPO WRITE FIFO DATA BUFFER 

MOV «64..R2 tTEST PATTERN SIZE 

CLR RO t INCREMENT TEST PATTERN 

MOVB R0.(R1)» t STORE INCREMENT TEST BYTE 

INC RO I SET NEXT PATTERN 

DEC R2 (DONE? 

BGT 130» tBR IF NO 



045476 012737 000001 002310' 



045504 
045504 



013700 002310' 



I REPEAT FOR BYTE COUNT 1 TO 65. 

MOV •I. COUNT 
I Do a Write Subaystem WRITE FIFO 

1501: 

MOV COUNT. RO 



I GET FIRST BYTE COUNT 
Mith the current byte count 
(REPEAT LOOP LABEL 
(FIFO BYTE COUNT 



B13 



TSV5 HARDWARE TESTS MACRO HlllS 01 -FEB -84 17iO? 
TEST 6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST 



3271 


045510 


Oi2701 


046142' 




hO^ #T17EXSTA,P1 


3272 


045514 


004737 


047612' 




JSR PC,Tl7UriF 


3273 


045520 


012704 


050110' 




HOV #T17PK2,R4 


3274 


045524 


010465 


000000 




HOV R4.TSDe(R5) 


3275 


045530 


004737 


016146' 




JSR PC.CHKTSSR 


3276 


045534 








FORCERROR 1521 


3277 


045550 


103407 






BCS 1601 


327a 


045552 


010001 






HOV R0»R1 


3279 


045554 








MEXT.ERRNQ 


3200 


045554 






1521 s 


ERRDT ERRNO • T 1 75SSR . PK T SSR 




04SSS4 


104455 










045556 


001207 










045560 


046576' 










045562 


011656* 








3281 


045564 


005237 


002222' 




IMC FATFLC 


3282 


045570 






1601s 


CKLOOP 




045570 


104406 









3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 



3294 
3295 

3296 
3297 
3298 
3299 
3300 
3301 
3302 
3303 
3304 
3305 
3306 
3307 
3308 



3309 
3310 

3311 
3312 



045572 
045576 
045602 
045606 
045612 
045626 
045630 
045632 
045632 
045632 
045634 
045636 
045640 
045642 
045646 
045646 



045650 
045654 
045660 
045664 
045670 
045704 
045706 
045710 
045710 
045710 
045712 
045714 
045716 
045720 
045724 
045724 
045726 
045732 



004737 047544* 

012704 050110' 

010465 000000 

004737 016146' 

103407 
010001 



104455 

001210 

046422' 

011656' 

005237 002222' 
104406 



004737 047524* 

012704 050110* 

010465 000000 

004737 016146' 

103407 
010001 



104455 

001211 

046466' 

011656' 

005237 002222' 
104406 

004737 047706' 
012701 046142' 



SubavstM Urit* n;«c 
PC.TITHSFIF 



1621: 



1701: 



Do a Writ* 

JSR 

nOV •T17PK2.R4 
NOV fl4.TS0e(R5) 
JSR PC.CHKTSSR 
FORCERROR 1621 
BCS 1701 
NOV RO.Rl 
NEXT. ERRNO 

ERROF ERRNO. T172SSR.PKTSSR 



SEQ 157 



iFIFO WRITE DATA ADDRESS 
iSETUP T17PK2 FOR WRITE FIFO 
iGET WRITE SUeSYSTEN COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
iWAIT FOR SSR TO SET 

iSSOFORCE ERROR IF FORCER •! 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 

I DEVICE FATAL SSR FAILED TO SET 

TRAP CIERDF 
.MOR' 647 
.UORb T175SSR 
.WORD PKTSSR 

I SET FATAL ERROR FLAC 
iLOOP ON ERROR. IF FLAG SET 

TRAP CICLPI 

to R«Mt FIFO 

I SETUP PKT FOR WRITE NISC RESET FIFO 
iGET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
tUAIT FOR SSR TO SET 

tSSOFORCE ERROR IF FORCER -1 
iBR IF CARRY SET (GOOD RETURN) 
•SAVE CONTENTS OF TSSR 



INC 

CKLOOP 



FATFLG 



tOEVlCE FATAL SSR FAILED TO SET 

TRAP 
.WONO 
.WORD 
.WORD 

I SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP 



CIERDF 
648 

T172SSR 
PKTSSR 



CtCLPl 



1771 ! 



180t: 



Do a Ur!t« SUbayatM READ STATUS 
If all Tapa Statua 2 (ICER.IFMK. 

aitftala N0T«O Than Print Error 
JSR PC.T17SR0 
MOV #T17PK2.R4 
NOV R4.TS0B(R5) 
JSR PC.CMCTSSR 
FORCERROR 1771 
BCS 1801 
MOV RO.Rl 
NEXT. ERRNO 

ERRDF ERRN0.T173SSR.PKTSSR 



IHER) flip-flop 

I SETUP PACKET FOR READ STATUS 
iGET WRITE SUBSYSTEM COrtWND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
I WAIT FOR SSR TO SET 

ISBOFORCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



INC 

CKLOOP 

JSR 
MOV 



FATFLG 



PC.T17SETEXP 
«T17EXSTA,R1 



IDEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

I SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP 

tSET WORDS 0-7 EXPD>RECV (NOT 
iGET EXPECTED READ STATUS 



CIERDF 
649 

T173SSR 
PKTSSR 



OCLPl 
TESTING) 



C13 



3313 


045736 




ACAAA9 * 


3314 


045742 


Ollcll 




3315 


045744 


l/^C r 11 




3316 


045750 


04271I 


AA1 ^^A 


3317 


045754 


O^c '11 


AAAAAA 


3316 


045760 


Ql^Al 


AAAAA9 AAAAAO 


3319 045766 






3320 045770 


37A1 
Ulc 'Ul 


AA77^9* 


3321 


045774 


A1 97A9 
Ulc rlMc 


U^Olcc 


3322 


046000 


A1 97AV 
vie rU3 


AAAA9A 


3323 


046004 


AAA7X7 


At 1 'VIA* 


3324 


046010 






3325 


046020 


103404 




3326 


046022 






3327 


046022 








046022 


104456 






046024 


001212 






046026 


047414' 






046030 


012160' 




3S2S 


046032 








046032 


104406 





•10V ♦T17BrSTA,R2 

nOV (R2).(R1) 

BIC «S1.ICER.(R1) 

BIC ♦Sl.irMK.(Rl) 

BIC «S1.ZHER.(R1) 

MOV 2(R2).2(R1) 

CLR RO 

HOV ♦T17BFR,R1 

MOV ♦T17EXP.R2 

MOV «20..R3 

JSR PC.CKMSG2 
rORCERROR 192 • . NOTSSR 

BCS 200t 
NEXT • ERRNO 

192t: ERRHRO ERRN0.T177CMP.MSGSTAT 



200t: CKLOOP 



3329 
3330 
3331 
3332 
3333 
3334 
SSSS 
5S36 
3337 
SS38 
SSS9 



3340 
3341 
3342 
3S43 
3344 
3345 
3346 
3347 
3348 
S349 



3350 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
3356 
3359 
3360 



046034 
046034 
046044 
046050 
046056 
046060 
046064 

046064 
046064 
046064 

046066 
046072 
046074 
046100 
046104 
046106 
046112 

046112 
046112 
046114 



005237 002310' 

023727 002310* 000101 
101002 

000137 045504' 



104403 

005737 002222' 
001402 

004737 017014' 
004737 016270* 
103002 

000137 040144* 



2501; 



260t: 



3001: 
3051 1 



104432 
002112 



FORCEXIT 260 t 

INC COUNT 

CMP COUNT. 465. 

BMI 260t 

JMP 150< 



ENDSUB 



TST 
BEQ 
JSR 
JSR 
BCC 
JMP 



EXIT 



FATFLG 
3001 

PC.CKOROP 
PC.TSTtOOP 
SOSI 
T17L00P 



TST 



!l0CAL STORAGE FOR THIS TEST 
I- 



046116 

046116 
046117 
046120 



T17MSK: 



377 
037 
360 



.BYTE 
.BYTE 
.BYTE 



tC<000> 
tC<340> 
tC«017> 



SEO 156 



I GET RECV READ STATUS 

I SET EXPO WORD «6 • RECV TEMP 

jSET EXPO ICER -0 

I SET EXPO IFMK -0 

I SET EXPO IMER -0 

iSET EXPO WORD «9 - RECV (NOT TESTING) 
I HIGH RECV ADDRESS FOR CKMSG2 
I LOU RECV ADDRESS FOR CKMSG2 
lEXPD ADDRESS 

I NUMBER OF BYTES TO COMPARE 

lEXPD EQUAL RECV? 

i80D 

iBR IF YES 
I REPORT ERROR 

TRAP CIERHRD 
.WORD 650 
.WORD T177CMP 
.UORO MSGS TAT 
I LOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 



(GET NEXT BYTE COUNT 
iDONE ALL 9YTES? 
I BR IF YES 

I DO ANOTHER BYTE COUNT 



t //////////// END SUBTEST ////////// 
L10064: 

TRAP CtESUB 

I ANY FATAL ERMRS ? 
I BRANCH IF NOT 
I TRY TO DROP THE UNIT 
lOO ITERATIONS? 
iBR IF NO 

iLOOP UNTIL ITERATIONS DONE 



I /////✓//// EXIT TEST ////////// 

TRAP CIEXIT 
.UORO L10056-. 



iMASK OF UNTESTED BITS IN READ STATUS BYTES 
tUNTESTEO BITS ARE SET TO 1 
iBYTE 0 MASK 

{BYTE 1 MASK (PARERR.IRESV2.IRESV1) 
iBYTE 2 (TIMER A. TIMER B.UNDEFINED< 1 :0> ) 



DI3 



SEQ 159 



336 1 
3362 

3363 

lis 

3366 
3367 
3366 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
3376 
3377 
3376 
3379 
3360 
3361 
3382 
3383 
3384 
3385 
3386 
3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
3410 
3411 
3412 
3413 
3414 
5415 
3416 
3417 



046121 

046122 
0461« 
046U 
046126 
046130 
046132 
046134 
046136 
046140 
046142 
046244 

046244 



046346 
046365 
046422 
046466 
046533 
046576 
046642 
046705 
046767 
047063 
047147 
v47232 
047306 
047414 



047500 
047500 
047504 
047510 
047514 
047516 
047520 
047522 



047524 
047524 
047530 
047534 
047540 
047542 



000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



106 
127 
127 
127 
127 
127 
127 
106 
122 
106 
106 
122 
106 
106 



111 
122 
122 
122 
122 
122 
122 
111 
145 
111 
111 
145 
111 
111 



012701 
012702 
105021 
005302 
003375 
000207 



004737 
012700 
112720 
105010 
000207 



047762' 
000120 



047500' 
050120' 
000005 



.BYTE 0 

T17EXP! 

.UORO 0 

.UORO 0 

.UORO 0 

.UORO 0 

.UORO 0 

.UORO 0 

.UORO 0 

.UORO 0 

T17EXSTAI .BLKB 66. 
T17EXEN0: 

TlTirOATA: .BLKB 66. 

iLOCAL TEXT MESSAGES FOR TEST 
t - 



I MAKE IT EVEN 



BEGIN EXPECTED DATA BUFFER 

MESSAGE TYPE 

DATA FIELD LENGTH 

RBPCR 

XSTO 

XSTl 

XST2 

XST3 

XST4 (ALUATS PRESENT FOR WRITE SUB.) 
EXPECTED READ STATUS AND URITE FIFO DATA 
lENO EXPECTED DATA BUFFER 



I URITE FIFO EXPECTED DATA BUFFER 



106 TST17ID: 

111 T17SSRt .ASCIZ 

111 T172SSR:. ASCIZ 

111 T173SSR:. ASCIZ 

111 T174SSR:. ASCIZ 

111 T175SSR:. ASCIZ 

111 T176SSR: .ASCIZ 

106 T171CnP:. ASCIZ 

141 T172D9:. ASCIZ 

106 T173CnP: .ASCIZ 

106 T174CnP:. ASCIZ 

141 T175aiP:. ASCIZ 

106 T176CM>:. ASCIZ 

106 T177D1Pt .ASCIZ 
.EVEN 

! *aEAR MESSAGE BUFFER 

717CLRBUF: 

SAVREG 

MOV 

MOV 
IOC: CLR6 

DEC 

BCT 

RTS 

I ♦ 



.ASCIZ 'FIFO Ex«rciMr' 
URITE CHARACTERISTICS Failed' 
'URITE SUBSYSTEM (Urittt Mi«e) F«il«d' 
'URITE SUBSYSTEM (R«ad Status) F«;i«d' 
URITE SUBSYSTEM (Urit* Hpr) Failad' 
'URITE SUBSYSTEM (Writ* FIFO) F«il«d' 
'URITE SUBSYSTEM (R«ad FIFO) F«il«d' 
'FIFO Status in UORD «9 Incorrect after Initialixa' 
'Read FIFO Data net equal to Urite FIFO . Data ie in UORD W 
'FIFO Statue (In UQRO #9) Incorrect efter URITE FIFO' 
'FIFO Stetue (In UORO 69) Incorrect efter READ FIFO' 
'Reed FIFO Dete net eeuel to Urite FIFO Deta' 

'FIFO Statue (In UORO 99) Incorrect efter READ FIFO free w> Eavty F 
'FIFO Stetue (In UORO 49) Incorrect efter RESET FIFO' 



•T17BFR,R1 
•T17BEND-T17BFR.R2 
(RD* 
R2 
101 
PC 



t SETUP T17PK2 PACKET FOR READ STATUS 
T17SRD: 

JSR PC,T17CLRBUF 

MOV •T170T2.R0 

MOVB «PU.R0STATUS.(R0)* 

CLRB (RO) 

RTS PC 



iSAVE R1R5 UNTIL NEXT RETURN 
I GET MESSAGE BUFFER ADDRESS 
(SIZE OF MESSAGE BUFFER IN BYTES 
I CLEAR A BYTE 

iDorc? 

iBR IF NO 
•RETURN 



I CLEAR MESSAGE BUFFER 

lURITE SUBSYSTEM DATA BUFF'-R 

I STORE READ STATUS COMMAND IN BSELO 

{CLEAR BSELl 

iRETURN 



E13 



TSV5 - HARDWARE 


TESTS 


MACRO nill3 


01 -FEB 04 17:02 




SEQ 




: SUBTEST 6: FIFO VERIFY RESET 


FIFO TEST 




















XA. 1 Q 








t ♦ 














t SETUP T17PK2 PACKET FOR WRITE HISC RESET FIFO 


















047544 






T17RSFIF: 








047544 


004737 


047500* 


JSR 


PC.T17CLRBUF 


i CLEAR MESSAGE BUFFER 




047550 


012700 


050120' 


nov 


♦T170T2.ro 


1 WRITE SUBSYSTEM DATA BUFFER 




047554 


112720 


000010 


novB 


•PW.WMISC.(RO)* 


1 STORE WRITE MISCELLANEOUS IN BSELO 




047560 


112710 


000030 


nova 


•MS . RSF IF ! MS . RST AP . ( RO ) 


•STORE BSELl CLEAR FIFO COOES 


f 


047564 


000207 




RTS 


PC 


t RETURN 
























t • 














t SETUP T17PK2 PACKET FOR URITE NPR 


























! It^T: 






^^^^ 








1 RO CONTAINS BSELl NPR DATA 


























1 SETS NP.URP SINCE IF 0 IT WRITES WRONG PARITY. 
















<^^w f 


047566 






T17SM>R: 






MSA 


047566 


004737 


047500' 


JSR 


PC.T17CLRBUF 


t CLEAR MESSAGE BUFFER 




047572 


012701 


050120' 


HOV 


#T170T2.R1 


t URITE SiiBSYSTEH DATA BUFFER 




047576 


112721 


000011 


nova 


•PW.UNPR.(Rl)* 


1 STORE URITE NPR IN BSELO 


MAI 


047602 


052700 


000020 


BIS 


«f».WRP.RO 


lOON'T URITE URONG PARITY 


MAP 


047606 


110011 




NOVB 


RO.(Rl) 


1 STORE NPR DATA IN BSELl 


MAS 


047610 


000207 




RTS 


PC 


{RETURN 


MAA 














MAS 








1 ♦ 






MA6 








1 SETUP T17PK2 PACKET FOR URITE FIFO 




MAT 














3448 








! I»^T: 






MA9 








t RO CONTAINS BYTE COUNT 




MSO 








1 Rl CONTAINS DATA PATTERN BLOCK 


ADDRESS 


MSI 














M52 


047612 






T17WFIF1 






M53 


047612 






SAVREG 




{SAVE R1-R5 UNTIL NEXT RETURN 


MS4 


047616 


004737 


047500' 


JSR 


PC.T17CLRflUF 


{CLEAR MESSAGE BUFFER 


MSS 


047622 


012702 


050120' 


NOV 


#T17DT2,R2 


{WRITE SUBSYSTEM DATA BUFFER 


MS4 

^^^^ 


047626 


112722 


000004 


novB 


#PW.WFIF0.(R2)» 


{STORE WRITE FIFO IN BSELO 


MS7 


047632 


110022 




NOVB 


R0.(R2)* 


{STORE BYTE COUNT IN BSELl 


MSA 


047634 


005022 




aR 


(R2)» 


{CLEAR SEL2 (UNUSED) 




047636 


112122 




lot: NOVB 


(R1)*.(R2)» 


{STORE DATA PATTERN BYTE 


M60 


047640 


005300 




DEC 


RO 


{DONE ALL BYTES? 


3461 


047642 


003375 




BCT 


lot 


{BR IF NO 


M&P 


047644 


000207 




RTS 


PC 


(RETURN 


3463 












3464 








t * 






M6S 








1 SETUP T17PK2 PACKET FOR READ FIFO 




M66 














S467 








t INPUT: 






3466 








i RO CONTAINS SEL2 BYTE COUNT 




S469 














3470 


047646 






T17RFIF: 






3471 


047646 


004737 


047500' 


JSR 


PC,T17CLRBUF 


{CLEAR MESSAGE BUFFER 


3472 


047652 


012701 


050120' 


MOV 


♦T\70T2.R1 


{WRITE SUBSYSTEM DATA BUFFER 


3473 


047656 


112721 


000003 


M0V6 


♦kW.RFIFO.CRI)^ 


1 STORE READ FIFO IN BSELO 


3474 


047662 


110021 




MOVB 


RO.CRD* 


{STORE BYTE COUNT IN BSELl 



TSV5 - HARDWARE TESTS riACRO H1113 Ol FEB-84 17:02 
TEST 6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST 



F13 



SCO 161 



3475 
3476 
3477 
3476 
3479 
3460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 
3466 
3469 
3490 
3491 
3492 
3493 
3494 
3495 
3496 
3497 
3496 
3500 
3502 
3503 
3504 
3505 
3506 
3507 
3506 
3509 
3510 
3511 
3512 
3513 
3514 
3515 
3516 
3517 
3516 
3519 
3520 
3521 
3522 
3523 
3524 
3525 
3526 
3527 
3526 
3529 
3530 
S5S1 
3532 
S5S3 



047664 000207 



047666 



RTS 



PC 



i ♦ 



(RETURN 



I CLEAR EXPECTED DATA MESSAGE BUFFER 
n7CLEXP: 



047666 


012701 


046122' 




nov 


♦T17EXP.RI 


iGET EXPO ADDRESS 


047672 


012700 


000122 




nov 


♦T17EXEN0-T17EXP.ro 


iGET EXPO SIZE 


047676 


105021 




lot: 


CLRB 


(Rl)» 


iCLEAR A BYTE 


047700 


005300 






DEC 


RO 


lOONE? 


047702 


003375 






BGT 


101 


iBR IF NO 


047704 


000207 






RTS 


PC 


•RETURN 



047706 
047706 
047712 
047716 
047722 
047724 
047726 
047730 

047732 



047740 
047740 
047742 
047744 
047746 

047750 
047750 
047752 
047754 
047756 
047760 



047762 
047762 
047764 
047766 
047770 
047772 
047774 
047776 
050000 
050002 
050102 



»♦ 



iS*t UOROS 0-7 of CMpd 



012702 046122' 

012703 047762' 
012700 000010 
012322 
005300 
005575 
000207 



T17SETEXP: 

nov 
nov 
nov 

51: nov 
DEC 
BGT 
RTS 



•T17EXP.R2 

♦T17BFR.RS 

•e..RO 

(RS)«.CR2)» 

RO 

St 

PC 



buff or • to rocv sine* not t««tino 



iGET EXPO 

iGET READ STATUS RECV BUFFER 

iSET UOROS 0-7 EXP-RECV 

tSET EXPO-RECV 

lOONE UOROS 0-7 UOROS? 

iBR IF NO 

t RETURN 



.BLKB 10-«.-TSV2e7> 



lURITE CHMMCTERISTICS COrtfAND PACKET 



100004 
047750' 
000000 
000012 



047762' 

000000 

000024 

000000 

000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



TITPACKET: 

.UORO 
.UQRD 



TITOATA: 



.UORO 



.UORO 



100004 

TITDATA 

0 

10. 



TITBTR 
0 

20. 

0 

0 



iCOnHAND PACKET FOR TEST 

lURITE CHARACTERISTICS CONHAM). UITH ACK 

lAOORESS OF CHARACTERISTICS BLOCK 

iNINIHun HESSAGE PACKET SIZE 

{CHARACTERISTICS DATA BLOCK 
I ADDRESS OF MESSAGE BUFFER 

iLFNGTH OF MESSAGE BUFFER 
iESS.EI0.EAI.ERI 

lEXTENOEO FEATURES UNIT NO. ETC. 



iNESSAGE BUFFER FOR ALL TEST 6 COmANOS 
T17BFR: 

.UORO 0 

.UORO 0 

.UORO 0 

.UORO 0 

.UORO 0 

.UORO 0 

.UORO 0 

.UORO 0 
TlTBFSTAt .BLKB 64. 
T17BEND: 

!uRITE SUBSYSTEH READ STATUS COMHAND PACKET 



iBEGIN MESSAGE BUFFER 
iMESSAGE TYPE 
iDATA FIELD LENGTH 



iXSTO 
iXSTl 
|XST2 
iXSTS 

lXST4 (ALUAYS PRESENT FOR URITE S^JBSTSTEM 
iREAD STATUS AND URITE FIFO BUFFER 
lEND OF MESSAGE BUFFER 
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G13 



SEO 162 



5534 
3536 
3556 
5539 
5540 
3541 
3542 
3543 
3544 
3545 
3546 
3547 
3548 
3549 
3550 



3551 
3552 
3553 
3554 
3555 
3556 
3557 
3556 
3559 
3560 
3561 
3562 
3563 
3564 
3565 
3566 
3567 
3568 
3569 
3570 
3571 
3572 

3577 
3578 
3579 
3580 
3581 
3582 
3583 
3584 
3585 
3586 



3587 
3588 
3589 



050102 
050110 
050110 
050112 
050114 
050116 

050120 
050120 
050121 
050122 
050124 

050226 
050226 
050226 



050230 
050230 
050230 
050234 
050240 
050246 

050246 
050246 
050252 
050254 
050256 
050256 
050260 
050262 
050264 



100006 
050120' 
000000 
000012 



000 
000 
000000 



104401 



T17PK2: 



T170T2: 



.BLKB 10-<.-TSV2C7> 



.WORD 
.WORD 
.WORD 
.UORD 



.BTTE 
.BYTE 
.WORD 
.BLKB 

ENOTST 



P.URTSOB!P.ACK 

T170T2 

0 

10. 



0 
0 
0 

66. 



lURITE SUBSYSTEM WITH ACK 
iLOU ADDRESS OF DATA BLOCK 
iHIGH ADDRESS OF DATA BLOCK 
iMINIHUH MESSAGE PACKET SIZE 

I DATA BLOCK 
iBSELO 
iBSELl 
lSEL2 

lURITE FIFO DATA OUTPUT BUFFER 



L10056! 



TRAP 



CIETST 



.SBTTL TEST 7: STATIC TRANSPORT BUS INTERFACE TEST 



TEST DESCRIPTION: 

TEST STEPS: 

REPEAT FOR LOOPCNT 
BEGIN 

Writ* to TSSR rMi«t«r to soft inStializ* th« contrelUr 

Do URITE CHARACTERISTICS to chuck for Extondtd F««tur«« Switch 

If Extended FoaturM HardMro SMit«h Cloar th«n: 

Do Writ* SuboyotM Urito Hi«c«llan«ou« to Sot Extondod F«»turM. 
Do URITE CHARACTERISTICS to ooloct fMorvod unit 7 
Do • Urito Sub»y«toM READ STATUS 

If any transport intorfaco aignala ara aaaartad than Print Error 
END 



012700 
004737 
012737 



004737 
103405 
010001 

104455 

001274 

003646* 

011644' 



050736' 
016322' 
000012 



015604' 



002216' 



BGNTST 

MOV ♦TSTieiD.RO 

JSR PC.TSTSETUP 

MOV tlO.. LOOPCNT 

T18L00P: 

I Urita to TSSR raoiatar to ooft 

51: 

JSR PC.SOFINIT 

6CS 101 

MOV RO.Rl 

ERRDF ERRNO.SFIERR.SFIMSG 



T7' • 

i ASCII MESSAGE TO IDENTIFY TEST 
tOO INITIAL TEST SETUP 
I PERFORM 10 ITERATIONS 



initialixa tha eontrollar 



INITIALIZE 



050266 005037 002222' 



io»: 



I URITE TO TSSR TO SOFT 
tBR IF SOFT INIT OKAY 
tSAVE CONTENTS OF TSSR 
I DEVICE FATAL DURING INIT 

TRAP 
.UORD 
.UORD 
.UORD 

Do URITE CHARACTERISTICS to ehack for E^tandad F««turaa Switch 
CLR FATFLG i CLEAR FATAL ERROR FLAG 



OERDF 
700 

SFIERR 
SFIMSG 



H13 



TSV5 
TEST 
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7: STATIC TRANSPORT BUS INTERFACC TEST 



3590 
3591 
3592 
3593 
3594 
3595 
3596 



3597 
3596 

3599 
5600 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
3606 
3609 
3610 
3611 
3612 
S61S 



3614 
3615 

3616 
3617 
3618 
3619 
3620 
3621 
3622 
3623 
3624 
3625 
3626 



S627 
3626 

3629 
3630 
3631 



050272 
050276 
050302 
050316 
050320 
050322 
050322 
050322 
050324 
050326 
050330 
050332 
050336 
050336 



050432 
050436 
050442 
050446 
050462 
050464 
050466 
050466 
050466 
050470 
050472 
050474 
050476 
050502 
050502 



012704 051420' 
004737 010472' 

103407 
010001 



104455 

001275 

050775' 

011656' 

005237 002222' 
104406 



121: 



151: 



MOV «T18PACKET.R4 
JSR PC.URTCHR 
FORCERROR 121 
BCS 151 
MOV RO.Rl 
NEXT.ERRNO 

ERROr ERRNO . T 16SSR . PKTSSR 



INC 

CKLOOP 



FATFLG 



SEQ 163 



tGET THE ADDRESS OF COTtlAHD PACKET 
iDO WRITE CHARACTERISTICS COMHANO 

ifiSOFORCE ERROR IF FORCER -1 
iBR IF CARRY SET (GOOD RETURN) 
tSAVE CONTENTS OF TSSR 

•DEVICE FATAL SSR FAILED TO SET 

TRAP CIERDF 
.WORD 701 
.UORD TiaSSR 
.WORD PKTSSR 

I SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 



If Ext«nd«d F««tur«s HardN«r« Switch Cl«*r thmn: 



050340 


012701 


051442* 


MOV 


#T186FR.R1 


050344 


032761 


000200 000012 


BIT 


•X2.EXTr,XST2(Rl) 


050352 


001026 




BNE 


301 


050354 


004737 


051266* 


JSR 


PC.T16SMISC 


050360 


012704 


051470' 


NOV 


#T16PK2.R4 


050364 


010465 


000000 


NOV 


R4.TSDB(R5) 


050370 


004757 


016146' 


JSR 


PC.CmTSSR 


050374 






FORCERROR 22$ 


050410 


103407 




BCS 


301 


050412 


010001 




NOV 


RO.Rl 


050414 






NEXT.ERRNO 


050414 




221: 


ERROF 


ERRNO . T 162SSR . PKT SSR 


050414 


104455 








050416 


001276 








050420 


051032' 








050422 


011656' 








050424 


005237 


002222' 


INC 


FATFLG 


050430 




30»: 


CKLOOP 




050430 


104406 









005037 002222' 
012704 051420' 
004737 010472* 

103407 
010001 



104455 

001277 

050775' 

011656' 

005237 002222' 
104<«v^ 



421: 



501: 



Do WRITE CHARACTERISTICS to 

CLR FATFLG 

NOV #T16PACKET.R4 

JSR PC.URTCHR 

FORCERROR 42 t 

BCS 50 t 

NOV RO.Rl 

NEXT.ERRNO 

ERROF ERRNO. T16SSR. PKTSSR 



INC 

CKLOOP 



FATFLG 



{MESSAGE BUFFER ADDRESS 
(EXTENDED FEATURES SWITCH SET? 
I BR IF YES 

I SETUP PACKET FOR WRITE MISCELLANEOUS 
iGET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
I WAIT FOR SSR TO SET 

iMOFORCE ERROR IF FORCER- 1 
iBR IF CARRY SET (GOOD RETURN) 
tSAVE CONTENTS OF TSSR 

IDEVICE FATAL SSR FAILED TO SET 

TRAP CIEROF 
.WORD 702 
.WORD T162SSR 
.WORD PKTSSR 

tSET FATAL ERROR FLAG 
;LOOP ON ERROR. IF FLAG SET 

TRAP CtCLPl 



»I*ct r«a«rv«d unit 7 

I CLEAR FATAL ERROR FLAG 

tGET THE ADDRESS OF COMMAND PACKET 

iDO WRITE CHARACTERISTICS COMMAND 

iSSDFORCE ERROR IF FORCER- 1 
iBR IF CARRY SET (GOOD RETURN) 
tSAVE CONTENTS OF TSSR 

(DEVICE FATAL SSR FAILED TO SET 

TRAP C*ERDF 

.WORD 703 

.WORD T18SSR 

.WORD PKTSSR 

(SET FATAL ERROR FLAG 
(LOOP ON ERROR. IF FLAG SET 

TRAP C»CLP1 



050504 012701 051442* 



Cl«ar iMsaag* buffer 
MOV tTlBBFR.Rl 



(GET MESSAGE BUFFER ADDRESS 



113 
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TEST 7: STATIC TRANSPORT BUS INTERFACE TEST 



S£Q 164 











oooo 












AA<(XAn 








AAXX7<^ 












r 




AAA7X7 










AS 1 A 7 A ' 








AAAAAA 
WWW 




























AC/) SAO 






3644 


050562 






3645 


050562 








050562 


104455 






050564 


001300 






050566 


051076' 






650570 


011656* 




3646 


050572 


005237 


002222' 


3647 


050576 








050576 


104406 





3646 
3649 
3650 
3651 
3652 
3653 
3654 
3655 
3656 
3657 
3658 
3659 
3660 
3661 
3662 



3663 

3664 
3665 

3667 
3668 
3669 
3670 
3671 
3672 



3673 
3674 
3675 
3676 



050600 004737 051310* 



050604 
050606 
050612 
050616 
050622 
050626 
050636 
050640 
050640 
050640 
050642 
050644 
050646 
050650 
050650 

050652 
050656 
050660 
050664 
050670 
050672 
050676 
050676 
050676 
050700 



005000 

012701 051442* 

012702 050706' 

012703 000012 
004737 011310' 

103404 



104456 

001301 

051143* 

012160' 

104406 

005737 002222' 
001402 

004737 017014* 
004737 016270' 
103002 

000137 050246* 



104432 
000606 



601; 



62>: 



70»! 



MOV T180ATA»4.R0 
CLR8 CRD* 
DEC RO 
BGT 60 » 

Oo a Ur!t* Sub«y«t«m READ STATUS 

JSR PC.TlBSto 

MOV •T18PK2.R4 

MOV R4.TS06(R5) 

JSR PC.CHKTSSR 

FORCERROR 62 t 

BCS 70* 

MOV RO.R] 

NEXT.ERRNO 

ERROF ERRN0.T183SSR.PKTSSR 



INC 

CKLOOP 



FATFLG 



S«t first 8 words of oxpd 

S«t unuMd bit* in Road Status axpd equal rcvd 



I SIZE OF MESSAGE BUFFER IN BYTES 
I CLEAR A BYTE 
lOONE? 
iBR IF NO 

t SETUP PACKET FOR READ STATUS 
I GET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
lUAIT FOR SSR TO SET 

tSaOFOftCE ERROR IF FORCER- 1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF T SSR 

lOEVlCE FATAL SSR FAILED TO SET 

TRAP CIEROF 
.WORD 704 
.WORD T183SSR 
.WORD PKTSSR 

I SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 



buffer • to racv since not testing 



PC.T18SETEXP liSET SOME EXPD TO RECV 

transport interface siflnals are asserted then Print Error 



82* : 



JSR 
If any 

aR 

MOV 
MOV 
MOV 
JSR 

FORCERROR 
BCS 901 
NEXT.ERRNO 

ERRHRO ERRN0.T18CMP.MSGSTAT 



RO 

«T18BFR.R1 
#T18EXP.R2 
♦10..R3 
PC.CKMSG2 

B2t .NOTSSR 



tHIGH RECV ADDRESS FOR CKMSG2 
I LOW RECV ADDRESS FOR CKMSG2 
{EXPO ADDRESS 

{NUMBER OF WORDS TO COMPARE 

(EXPO EQUAL RECV? 

tSSO 

I BR IF YES 



CKLOOP 



90* : 

160*! 

165*1 

I LOCAL STORAGE FOR THIS TEST 
I - 



{REPORT ERROR 



{LOOP ON ERROR. IF 



TRAP 
.WORD 
.WORD 
.WORD 
FLAG SET 
TRAP 



C*ERHRD 
705 

T18CMP 
MSGSTAT 

C*CLP1 



TST 
BEO 
JSR 
JSR 
BCC 
JMP 

EXIT 



FATFLG 
160* 

PC.CKOROP 
PC.TSTLOOP 
165* 
T16L00P 

TST 



{ANY FATAL ERRORS ? 

(BRANCH IF NOT 

(TRY TO DROP THE UNIT 

{00 ITERATIONS? 

I BR IF NO 

(LOOP UNTIL ITERATIONS DONE 



TRAP 
.WORD 



C*EXIT 
L 10065- 
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J13 



3677 
3678 
3679 
3680 
3681 
3662 
3683 
3684 
3685 
3686 
3687 
3688 
3689 
3690 
3691 
3692 
3693 
3694 
3695 
3696 
3697 
3696 
3699 
3700 
3701 
3702 
3703 
3704 
3705 
3706 
3707 
3706 
3709 
3710 
3711 
3712 
3713 
3714 
3715 
3716 
3717 
3718 
3719 
3720 
3721 
3722 
3723 
3724 
3725 
3726 
3727 
3728 
3729 
3730 
3731 
3732 
S7SS 



050702 
0bO702 
050703 
050704 
050705 

050706 
050706 
050710 
050712 
050714 
050716 
050720 
050722 
050724 
050726 
050730 

050732 
050734 



050736 
050775 
051032 
051076 
051143 



051246 
051246 
051252 
051256 
051262 
051264 



051266 
051266 
051272 
051276 
051302 
051306 



377 
037 
100 
000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

377 
000000 



123 
127 
127 
127 
124 



012700 
112720 
105010 
000207 



012700 
112720 
112710 
000207 



020 



164 
122 
122 
122 
162 



051500' 
000005 



051500' 

000010 

000200 



(1 

LI 
LI 
LI 



Tl6f1SK! 



T18EXP: 



T18XS: 



.BYTE 
• BYTE 
.BYTE 
.BYTE 



.WORD 
.WORD 
.WORD 
.WORD 
.UORD 
.WORD 
.UORO 
.WORD 
.WORD 
.WORD 

.BYTE 
.UORD 



tC<000> 
tC<340'' 
tC<277> 
0 



0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

377,020 
0 



iLOCAL TEXT MESSAGES FOR TEST 
t - 



SEO 165 



I MASK OF UNUSED BITS IN READ STATUS BYTES 

iBYTE 0 MASK 

iBYTE 1 

iBYTE 2 

I MAKE IT EVEN 

i EXPECTED DATA BUFFER 

{MESSAGE TYPE 

I DATA FIELD LENGTH 

iRBPCR 

iXSTO 

iXSTl 

tXST2 

iXSTS 

iXST4 (ALWAYS PRESENT FOR WRITE SUB) 
I READ STATUS BYTE 1/0 
tREAO STATUS BYTE 2 

I READ STATUS BYTE 0/1 EXPECTED BASE 
tREAD STATUS BYTE 2 EXPECTED BASE 



TST18I0: .ASCIZ 'Static Transport Bua Intarfi 

T18SSR: .ASCIZ 'WRITE CH<<«ACTERISTICS F«il«d' 

T182SSR:. ASCIZ 'WRITE SUBSYSTEM CWrita Miac) F«il«d' 

T18SSSR:. ASCIZ 'WRITE SUBSYSTEM (Raad Statua) Failad' 

T16CMP: .ASCIZ ' Tranapert Bua Intarfaca SSywI* NOT Nagatad Aftar Unit 7 Salactad' 
.EVEN 

TsETUP T18PK2 PACKET FOR READ STATUS 
UBSRO: 



SAVREG 
MOV 
MOVB 
CLRB 
RTS 



•T180T2.ro 

«PW.RDSTATUS.(RO)» 

(RO) 

PC 



TsETUP T18PK2 PACKET FOR WRITE HISC. 
T16SHISC: 



SAVREG 

MOV 

MOVB 

MOVB 

RTS 



♦T180T2.ro 

«PW.WMISC.(RO)» 

«MS.EXT.CRO) 

PC 



I SAVE Rl-RS UNTIL NEXT RETURN 

I WRITE SUBSYSTEM DATA BUFFER 

> STORE READ STATUS COMMAND IN BSELO 

(CLEAR BSELl 

(RETURN 



;SAVE R1-R5 UNTIL NEXT RETURN 

I WRITE SUBSYSTEM DATA BUFFER 

I STORE WRITE MISCELLANEOUS IN BSELO 

I STORE INVERT EXTENDED FEATURES IN BSELl 

(RETURN 



t ♦ 

I Sat 

( 

I - 



first 8 Morda of a^pd massaga buffar ■ to raev ainca not taating 
Sat unuaad bita in Raad Statua axpd aqual rcvd 
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5754 051510 TISSETEXP: 

5755 051510 012702 050706' MOV 

5756 051514 012705 051442' MOV 

5757 051520 012700 000010 MOV 

5756 051524 012522 S»: MOV 
5759 051526 005500 DEC 

5740 051550 005575 BGT 

5741 051552 012701 050702' MOV 
3742 051556 015712 050752' MOV 
5745 051542 015762 050754' 000002 MOV 

5744 051550 011500 MOV 

5745 051552 041100 BIC 

5746 051554 040012 BIC 

5747 051556 050012 BIS 

5748 051560 016500 000002 MOV 

5749 051564 046100 000002 BIC 

5750 051570 040062 000002 BIC 

5751 051574 050062 000002 BIS 

5752 051400 105062 000005 CLRB 
5755 051404 105065 000005 CLRB 
5754 051410 000207 RTS 
5755 

5757 051412 .BLKB 

5759 I 

5760 iURITE CHARAR1 

5761 I 

5762 051420 T18PACKET: 
5765 051420 100004 .UORO 

5764 051422 051450' .UORO 

5765 051424 000000 .UORO 

5766 or 1426 000012 .UORO 
5767 

5766 051450 T18DATA: 

5769 051450 051442' .WORD 

5770 051452 000000 .UORO 

5771 051454 000024 .UORO 

3772 051436 000000 .UORO 

3773 051440 000007 .UORO 
3774 

3775 

3776 051442 T18BFR: 

3777 051442 000000 .UORO 

3778 051444 000000 .UORO 

3779 051446 000000 .UORO 

3780 051450 000000 .UORO 

3781 051452 000000 .UORO 
5782 051454 000000 .UORO 

5785 051456 000000 .UORO 
3764 051460 000000 .UORO 
3785 051462 000000 .UORO 
3766 051464 000000 .UORO 
5787 I 

5786 lURITE SUBSYS 
5769 t 

3791 051466 .BLKB 

5795 051470 T16PK2: 

5794 051470 100006 .UORO 



K13 



SEQ 166 



•T16EXP.R2 I GET EXPO 

»TlSBrR.R3 iGET READ STATUS RECV BUFFER 

«8..R0 iSET FIRST 8 UORDS EXP-RECV 

(R3)».(R2)* iSET EXPO-RECV 

RO lOONE FIRST 6 UOROS? 

5t iBR IF NO 

♦T18MSK.R1 ,GET UNUSED BIT MASK 

T16XS.(R2) (SETUP BASE EXPECTED BYTE 1/0 

T16XSf2.2(R2) iSETUP BASE EXPECTED BYTE 2 

(R3).R0 iGET RECV BYTE 1 AND BYTE 0 

(Rl).RO I CLEAR ALL BUT UNUSED 

R0.(R2) I CLEAR UNUSED IN EXP 

R0.(R2) I SET UNUSED EXPO-RECV FOR COMPARE 

2(R5).R0 tGET RECV BYTE 2 

2(R1).R0 (CLEAR ALL BUT UNUSED 

R0.2(R2) (CLEAR UNUSED IN EXPO 

R0.2(R2) (SET UNUSED EXPO-RECV FOR COMPARE 

5(R2) (CLEAR EXPO BYTE 5 C UNUSED) 

5(R5) (CLEAR RECV BYTE 5 (UNUSED) 

PC (RETURN 

10.<..TSV267> 

IISTICS COMMAND PACKET 

t COMMAND PACKET FOR TEST 

100004 lURITE CHARACTERISTICS COnVH), UITH ACK 

T180ATA t ADDRESS OF CHARACTERISTICS BLOCK 
0 

10. {MESSAGE PACKET NINIHUn SIZE 

(CHARACTERISTICS DATA BLOCK 

T18BFR (ADDRESS OF MESSAGE BUFFER 
0 

20. (LENGTH OF MESSAGE BUFFER 

0 (ESS.ENB.EAI.ERI 

7 (SELECT RESERVED UNIT 7 



(MESSAGE BUFFER 

0 (MESSAGE TYPE 

0 (DATA FIELD LENGTH 

0 (RBPCR 

0 (XSTO 

0 (XSTl 

0 (XST2 

0 (XST5 

0 (XST4 (ALUAYS PRESENT FOR URITE SUBSYSTEM 

0 (READ STATUS BYTE 1/0 RETURNED 

0 (READ STATUS BYTE 2 

1 READ STATUS COMMAND PACKET 
10-<.-TSV267> 

P.URTSUBiP.ACK (URITE SUBSYSTEM UITH ACK 



TSV5 - HARDWARE TfcSTS HACRQ Ml 113 01 FEB -64 17:02 
TEST 7: STATIC TRANSPORT S'JS INTERFACE TEST 



L13 



SEO 167 



5795 
S796 
5797 
5798 
5799 
3800 
5801 
5802 
58C5 
3804 
5805 
3806 



3807 
5808 
5809 
3810 
5811 
3812 
3813 
3814 
3815 
3816 
3817 
3818 
3819 
3820 
3821 
3822 
3825 
3824 
3825 
3826 
3827 
3828 
3829 

3834 
3835 
3836 
3837 
3838 
3839 
5840 
5841 
5842 
3843 
3844 
3845 
5846 
5847 
5848 
5849 
5850 
3851 
385? 



051472 
051474 
051476 

051500 
051500 
051501 
051502 
051504 



051506 
051506 
051506 



051510 
051510 
051510 
051514 
051520 
051526 



051500' 
000000 
000010 



000 
000 
000000 
000000 



104401 



.UORD T16DT2 
.UORO 0 
.WORD 8. 



T16DT2: 



• BYTE 
.BYTE 
.UORD 
.WORD 



ENOTST 



0 
0 
0 
0 



I LOW ADDRESS OF DATA BLOCK 
I HIGH ADDRESS OF DATA BLOCK 
I BUFFER EXTENT 

iDATA BLOCK 

iBSELO 

iBSELl 

tSEL2 

I DATA 



L 10065: 



TRAP 



C»6TST 



.SBTTL TEST 8: TRANSPORT BUS INTERFACE LOOPBACK TEST 



TEST DESCRIPTION: 

This tMt v«rifi«« th« controller'* Transport Bus 
drivsrs. rscsivsrs. and signal loopback logic. Nota 
that tha Static Transport Bus tast must hav« r<jn 
corraetly for this tast to provide maaningful results. 

TEST STEPS: 

REPEAT FOR LOOPCNT 
BEGIN 

Do Subtest 1 
Do Subtest 2 
Do Subtest 3 
Do Subtest 4 

END 



- Loopback Control signals test 

- Loopback Read/Write signals test 

- Loopback Write Strobe test 

- Loopback Read Strobe test 



012700 057722' 
004737 016322' 
012737 000012 



002?16' 



T19L00PS 



BGNTST 

HOV 
JSR 
HOV 



♦TST19I0.ro 
PC.TSTSETUP 
«10. .LOOPCNT 



T8:: 

{ASCII HESSAGE TO IDENTIFY TEST 
I DO INITIAL TEST SETUP 
I PERFORM 10 ITERATIONS 



.SBTTL TEST 8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST 



TEST 8: SUBTEST 1: 

SUBTEST DESCRIPTION: 

This subtest verifies the Transport Control loopback 
path can transmit and receive correctly. The 
control signals are all loopback signals other 
than the read/write data (IU<7:0> and IR<7:0>). 

TEST STEPS: 



M13 



TSV5 
TEST 



HAPDUARl 
8: SUBTE 



SEQ 168 



^853 
3854 
3855 
3856 
3857 
3858 
3859 
3860 
3861 
3862 
3863 
3864 
3865 
3866 
3867 
3868 
3669 
3870 
3871 
3872 
3873 
3874 
3875 
3876 
3877 
3878 
3879 
3880 
3881 
3882 
3883 
3884 
3885 
3606 



3887 
3888 
3889 
3890 
3891 
3892 
3893 



3894 
3895 
3896 
3897 
3898 
3899 
3900 
3901 
3902 



051526 
051526 
051526 



051530 
051530 
051534 
051536 
051540 
051540 
051542 
051544 
051546 

051550 
051554 
051560 
051564 
051600 
051602 
051604 
051604 
051604 



Th« loopback •ignals IFAO, ITAOO.ITAOl mrm th« tap* unit aalact 
lines. Sine* r«a«rv«d unit 7 muat ramain salactatf thaaa aionala 
ara alMaya aat Iom. Thia furthar maana tha aionala thay driva 
(ISPEEO.ZROY.IONL') ara only tastad in tha Iom etata. 

BEGIN 

Urita to TSSR raoiatar to aoft inltializa tha controllar 

Do WRITE CHARACTERISTICS to chack for Extandad Faaturaa Switch 

If Extandad Faaturaa Hmrdmmrm Switch Claar than: 

Do Urita Subayatam Urita Miacallanaoua to Sat Extandad Fmaturm*. 
Do URITE CHARACTERISTICS to aalact r—ry*«a unit 7 and aatup BUFFER 
Do a Urita Subayata* URITE NPR to aat tapa direction out -nd Loopback 
Do Urita Subayatam Urita Control to CLEAR loopback sional* group 1. 
Oo Urita Subayatam Urita fff^<i,t to CLEAR loopback signala group 2. 
(tha loopback aignala hav« *-o 'om claarad hare due to the flip-flopa 

that ara eat on a 1 to 0 ^ranaition CIHER.IFHK.ICER)) 
Oo a Urita Subayatam Urita Miec to Raaat Tapa Statue F -FLOPS 
Do a Urita Subayatam READ STATUS 
If all Tape Statue 2 (ICFR.IFHK IHER) flip-flop 

aignala NOT>0 Then Prirt> Error 

REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
BEGIN 

Oo Urite Subeyatem Urita Control to Drive loopback aignala group 1. 
Oo Urite Subeyatem Urite Format to Drive loopback signala group 2. 
Do a Urite Subayatam READ STATUS 
If loopback data NOT* data sant Than Print Error 
Do a Urite Subsystem Urite Hise to Reset Tape Status F. FLOPS 
Do a Urita Subayatam READ STATUS 
If all Tape Statue 2 ( ICER . IFMK . IHER ) flip-flop 
•i finals N0T«0 Then Print Error 

END 



BGNSUB 



104402 



004737 015604' 

103405 

010001 

104455 
001440 
003646' 
011644' 

005037 002222' 
012704 062050' 
004737 010472' 

103407 
010001 



104455 



»//////////// BEGIN SUBTEST ////////// 
T8.1: 

Jk'? CIBSUB 



i 

51: 



Urite to TSSR register to soft initialize the controller 



10$: 



12): 



JSR PC.SOFINIT 

BCS 10$ 

NOV RO.Rl 

ERRDF ERRNO.SFIERR.SFIHSG 



Do URITE CHARACTERISTICS to 

CLR FATFLG 

HOV «T19PACKET.R4 

JSR PC.URTCHR 

FORCERROR 12< 

BCS 15$ 

HOV RO.Rl 

NEXT.ERRNO 

ERRDF ERRN0.T19SSR.PKTSSR 



i URITE TO TSSR TO SOFT INITIALIZE 

iSR IF SOFT INIT OKAY 

iSAVE CONTENTS OF TSSR 

{DEVICE FATAL DURING INIT 

TRAP CtEROF 
.WORD 800 
.WORD SFIERR 
.WORD SFIHSG 
cheek for Extended Features Switch 

i CLEAR FATAL ERROR FLAG 

iGET THE ADDRESS OF COMHAND PACKET 

I DO URITE CHARACTERISTICS COTtlAND 

iSBOFORCE ERROR IF FORCER >1 

I BR IF CARRY SET (GOOD RETURN) 

iSAVE CONTENTS OF TSSR 

t DEVICE FATAL SSR FAILED TO SET 

TRAP OEROF 



TSVS - HARDWARE TESTS MACRO MlllS Ol-rEB-64 17:02 
TEST 8: SUBTEST 1: LOOPBACK C0t4TR0L SIGNAL TEST 



N13 



SEQ 169 





051606 


001441 






051610 


057765* 






051612 


011656' 




3905 


051614 


005237 


002222' 


5904 


051620 








051620 


104406 




3905 








3906 








3907 


051622 


012701 


062072 


« A/NO 

5900 


051626 


052761 


AAA'^AA 

000200 


5909 


051634 


001026 




3910 


051656 


AAA 

004737 


A^ % 1 

061722 


3911 


051642 


At '^7Ail 

012704 


062220 


3912 


051646 


At AA^C 

010465 


AAAAAA 
000000 


3915 


05 1652 


004757 


A4 ^% f 

016146 


3914 


05165O 






3915 


0516 f 2 


% A'S^AT 

10540 f 




39 lo 


05 1674 


A1 AAA1 
010001 




3917 


051676 






3910 


05 16 76 








05 lo r D 


104455 






051700 


AA« A^M.^ 

0014^2 






051702 


A^ AAOA « 

060020 






051704 


A4 4 ^CX. 1 

011656' 




3919 


051706 


AAC<9V7 

005237 


002222 


3920 


051712 








051712 


104406 




3921 








^922 


051714 


AACAV 7 

005057 


002222 


0920 


AC 1 7'^A 

051720 


012704 


A^ ^AC A ( 

062050 


a9i:4 


AC 4 

05 1 724 


AAA 

004757 


At AJi • 

010472' 


d9c5 


ACl ^VA 

051 750 






592D 


AC 4 

051744 


« A'ff^ A^ 

105407 




d9c r 


AC1 

051 r46 


At AAA4 
010001 




XQ9A 


AC1 TCA 

05 1 750 






0929 


AC1 7CA 

05 1750 








AC« 7CA 

ODl f 5U 


« Ail ACC 

104455 






ACl 7C9 

U51 f 52 


AAt AA V 

001443 






ACl 7C^ 

U51 r54 


05 7 763 






AC« 7CX. 

TOl f5o 


Alt ^CX. 1 

01 1656 




d90U 


ACl 7^ A 
V51 7oU 


AAC<9V7 

005257 


002222' 


a9dl 


ACl "y^M. 

051764 








rD4 


4 AAA A£ 

104406 




09ac 








090d 


ACl 

051 766 


A1 97AA 

012 700 


AAA 4 AA 

000100 


09^# 


ACl 

U51772 


AO^AA 

052700 


AAAAil A 

000040 


d9d3 


ACl 

U31 r f D 


004 757 


A^ 4 1 

061562' 




ACOAAO 


A1 07AA 

Olc f 04 


062220 


3937 


0SP606 




www 


S93S 


052012 


004737 


016146' 


3939 


052016 






3940 


052032 


103407 




3941 


0520S4 


010001 




3942 


052036 






3943 


052036 








052036 


104455 






052040 


001444 





151: 

i 
t 



221: 



301: 

s 



421: 



50$: 



.WORD 801 
.WORD T19SSR 
WORD PKTSSR 

INC FATFLG iSET FATAL ERROR FLAG 

CKLOOP I LOOP ON ERROR. IF FLAG SET 

TRAP C»CLP1 

If Extended Features HardMsre SMitch Clear then: 

Oo Write Subeyetem Write Miacellaneous to Set Extended Features. 



MOV ♦T19BFR.R1 
BIT ♦X2.EXTF.XST2CR1) 
BNE 301 
JSR PC,T19SEXT 
MOV #T19PK2,R4 
MOV R4,TS0B(R5) 
JSR PC.CHKTSSR 
FORCERROR 22$ 
BCS 30$ 
MOV RO.Rl 
NEXT.ERRNO 

ERRDF ERRN0.T192SSR. PKTSSR 



t MESSAGE BUFFER ADDRESS 
{EXTENDED FEATURES SWITCH SET? 
iBR IF YES 

I SETUP PACKET FOR WRITE MISC INVERT 
iGET WRITE SUBSYSTEM COMMAND PACKET 
tSET THE PACKET ADDRESS TO EXECUTE 
I WAIT FOR SSR TO SET 

tCUDFORCE ERROR IF FORCER -1 
iBR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 



(DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 

.WORD 802 

.WORD T192SSR 

WORD PKTSSR 

INC FATFLG :SET FATAL ERROR FLAG 

CKLOOP sLOOP ON ERROR. IF FLAG SET 

TRAP C$CLP1 

Do WRITE CHARACTERISTICS to select reserved unit 7 



CLR FATFLG 
MOV ♦T19PACKET.R4 
JSR PC.WRTCHR 
FORCERROR 42$ 
BCS 50$ 
MOV RO.Rl 
NEXT.ERRNO 

ERRDF ERRNO . T 19SSR , PKTSSR 



i CLEAR FATAL ERROR FLAG 

(GET THE ADDRESS OF COMMAND PACKET 

iOO WRITE CHARACTERISTICS COMMAND 

:8SDF0RCE ERROR IF FORCER- 1 
:BR IF CARRY SET (GOOD RETURN) 
jSAVE CONTENTS OF TSSR 



INC 

CKLOOP 



FATFLG 



62$: 



Do a Write Subsystem WRITE NPR 

MOV #NP.0UT,RO 

BIS «NP.LOOP.RO 

JSR PC.T19SNPR 

MOV ♦T19PK2.R4 

MOV R4.TSDB(RS) 

JSR PC.CHKTSSR 

FORCERROR 62$ 

BCS 70$ 

MOV RO.Rl 

NEXT.ERRNO 

ERRDF ERRNO. T194SSR. PKTSSR 



C$ERDF 
803 
T19SSR 
PKTSSR 



C$CLP1 



{DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

I SET FATAL ERROR FLAG 
sLOOP ON ERROR. IF FLAG SET 

TRAP 

to set tape direction out and Loopback 
sSET TAPE DIRECTION OUT 
tSET LOOPBACK ENABLE 
jSETUP T19PK2 FOR WRITE NPR 
(GET WRITE SUBSYSTEM COMMAND PmCKET 
iSET THE PACKET ADDRESS TO EXECUTE 
tWAIT FOR SSR TO SET 

tSaOFORCE ERROR IF FORCER -1 
I BR IF CARRY SET (GOOD RETURN) 
iSAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 
.WORD 804 



B14 



TSV5 HARDWARE TESTS MACRO nil 15 01 -FEB -84 17:0? 
TEST 6: SUBTEST 1: LOOPBACK CONTROL SIGNAL TFaT 



SEQ 170 





052042 


0601S1- 








052044 


011656' 






5944 


052046 


005257 


002222' 




3945 


052052 
052052 


104406 




70»: 


5946 








t 


5947 








1 


594e 








1 


5949 








1 


5950 


052C54 


005000 






5951 


052056 


042700 


000200 




5952 


052062 


042700 


000100 




5955 


052066 


042700 


000040 




5954 


052072 


004757 


061662' 




5955 


052076 


012704 


062220' 




5956 


052102 


010465 


000000 




5957 


052106 


004757 


016146' 




5958 


052112 
052126 








5959 


105407 






5960 


052150 


010001 






5961 


052132 








5962 


052152 
052152 
052154 
052136 
052140 


104455 
001445 

060505' 
011656' 




S2): 


5965 


052142 


005257 


002222' 




5964 


052146 
052146 


104406 




90t: 


5965 


052150 


005000 






5966 


052152 


004757 


061702' 




5967 


052156 


012704 


062220' 




5966 


052162 


010465 


000000 




5969 


052166 


004757 


016146' 




5970 


052172 








5971 


052206 


105407 






5972 


052210 


010001 






597S 


052212 








5974 


052212 
052212 
052214 
052216 
052220 


104455 
001446 

060552' 
011656' 




102t: 


5975 


052222 


005257 


002222' 




5976 


052226 
052226 


104406 




1101: 


5977 








t 


5978 


052250 


004757 


061540' 




5979 


032254 


012704 


062220' 




5960 


052240 


010465 


000000 




5981 


052244 


004757 


016146' 




5982 


052250 








5985 


052264 


105407 






5984 


052266 


010001 






5985 


052270 








5986 


052270 
052270 


104455 




1221: 



.WORD 
.UORD 

INC FATFLG iSET FATAL ERROR FLAG 

CKLOOP I LOOP Oh ERROR. IF FLAG SET 

TRAP 

Do Urit* Sub«y*t«iii Urit* Control to CLEAR loepback oignalo grovip 1. 
Do Writ* Suboyotom Writ* ForiMt to CLEAR loepbock olgnalo oroup 2. 
(th« loopboek oignal* havo to bo eloarod horo duo to tho flip-flopo 
that aro oot on a 1 to 0 tranaition (IHER . IFNK , XCER ) ) 



TmsSR 
PKTSSR 



CICLPl 



CLR RO 

BIC •WC.IFAD.ro 

BIC •WC.I0TA0.ro 

BIC •WC.I1TAD.ro 

JSR PC.T19WCTL. 

MOV •T19PK2.R4 

NOV R4,TS0B(R5) 

JSR PC.CHKTSSR 
FORCERROR , 821 

BCS 90k 

NOV RO.Rl 
NEXT.ERRNO 

ERROF ERftN0.T197SSR.PKTSSR 



iWRITE O'S 
lIFAD MUST ALWAYS -0 
lITAOO MUST ALWAYS -0 
iITAOl MUST ALWAYS -O 
I SETUP PACKET FOR WRITE CONTROL 
iGET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
iWAIT FOR SSR TO SET 

•SttFOftCE ERROR IF FORCER -1 
•BR IF CARRY SET (GOOD RETURN) 
•SAVE CONTENTS OF TSSR 



INC 

CKLOOP 



FATFLG 



JSR 
MOV 
MOV 
JSR 

FORCERROR 
BCS not 
MOV RO.Rl 
NEXT.ERRNO 

ERROF ERRN0.T19esSR.PKTSSR 



RO 

PC.T19WFMT 
•T19PK2.R4 
R4.TSD6(R5) 
PC.CHKTSSR 

1021 



INC FATFLG 
CKLOOP 

Do a Writo SubovatoM Writo Mii 

JSR 
MOV 
MOV 
JSR 

FORCERROR 
BCS 150t 
MOV RO.Rl 
NEXT.ERRNO 

ERROF ERRN0.T192SSR. PKTSSR 



•to SuboyatoM Writo 

PC.T19RSFIF 
•T19PK2,R4 
R4.TS0B(R5) 
PC.CHKTSSR 

122 1 



lOEVlCE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

{SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP 

I SET FORMAT DRIVE DATA-0 
I SETUP PACKET FOR WRITE FORMAT 
iGET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
tWAIT FOR SSR TO SET 

iBSDFORCE ERROR IF FORCER -1 
iBR IF CARRY SET (GOOD RETURN) 
tSAVE CONTENTS OF TSSR 



CIERDF 
805 

T197SSR 
PKTSSR 



CtaPl 



iDEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

•SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP 

to Rooot Tapo Statuo F-FlOPS 
I SETUP PKT FOR WRITE MISC Rooot T 
iGET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
I WAIT FOR SSR TO SET 

iBSOFORCE ERROR IF FORCER -l 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



CIERDF 
806 

T198SSR 
PKTSSR 



C»CLPl 



Statuo F FLOPS 



•DEVICE FATAL 



SSR FAILED TO SET 

TRAP CIERDF 



C14 



5967 
3-986 

5969 
5990 
5991 
5992 
5995 
5994 
5995 
5996 
5997 
5996 
5999 
4000 



4001 
4002 

4005 
4004 
4005 
4006 
4007 
4006 
4009 
4010 
4011 
4012 
4013 
4014 
4015 
4016 
4017 
4016 
4019 



4020 

4021 
4022 
4025 
4024 
4025 
4026 
4027 
4026 
4029 



052272 
052274 

052276 
052500 
052504 
052504 



052506 
052512 
052516 
052522 
052526 
052542 
052544 
052546 
052546 
052546 
052550 
052552 
052554 
052556 
052562 
052562 
052564 
052370 
052574 
052400 
052402 
052406 
052412 
052416 
052424 
052426 
052452 
052456 
052442 
052446 
052456 
052460 
052460 
052460 
052462 
052464 
052466 
052470 
052470 

052472 
052476 
052502 
052504 
052510 
052514 
052520 
052524 



001447 

060020- 
011656' 

005257 002222' 
104406 



004757 061520' 

012704 062220' 

010465 000000 

004757 016146' 



150* : 

I 
I 
I 



105407 
010001 



104455 

001450 

060064* 

011656* 

005257 

104406 
004757 
012701 
012702 
011211 
042711 
042711 
042711 
016261 
005000 
012701 
012702 
012705 
004757 

105404 



104456 
001451 
061025' 
012674* 

104406 

005057 
012705 
012500 
010557 
042700 
042700 
042700 
010037 



002222* 



061760' 
057622* 
062112' 

002000 
001000 
000400 

000002 000002 

062072' 
057602' 
000024 
011510' 



152t: 



1401: 



152* : 



INC 

CKLOCP 



FATFLC 



•SET FATAL ERROR FLAG 
I LOOP ON ERROR, IF FLAG 



Do • Writ* Sutaystm READ STAiJS 
If all Tap* Statua 2 (ICER.IFMK.IHER) fli^-flep 
•ignala N0T*0 Than Print Error 



.'u8rB 

.WORD 

SET 
TRAP 



SEQ 171 



807 

T192SSR 
PKTSSR 



CID PI 



JSR PC.T19SRD 
NOV •T19PK2.R4 
HOV R4.TS0B(R5) 
JSR PC.CHKTS5R 
rCKCERROR 152t 
BCS 1401 
NOV RO.Rl 
NEXT.ERRNO 

ERROF ERRN0.T195SSR. PKTSSR 



INC FATFLG 
CKLOOP 

JSR PC.T19SETEXP 

NOV #T19CXSTA.R1 

MOV *T19eFSTA.R2 

NOV (R2).(R1) 

eiC •Sl.XCER.(Rl) 

BIC «S1.XFHK.(R1) 

BIC •Sl.nCR.CRl) 

NOV 2(R2).2(R1) 

aR RO 

NOV •T196rR.Rl 

NOV #T19EXP.R2 

NOV 420. .R3 

JSR PC.CKNSG2 

FORCCRROR 152t.N0TSSR 

BCS 160> 

NEXT.ERRNO 

ERRHRO ERRNO.T197CNP.NSGLO0P 



•SETUP PACKET FOR READ STATUS 
iGET MRITE SUBSYSTEN CONNAND PACKET 
tSET THE PACKET ADDRESS TO EXECUTE 
tUAIT FOR SSR TO SET 

tSiOFORCE ERROR IF FORCER -1 
iBR IF CARRY SET (GOOD RETURN) 
•SAVE CONTENTS OF TSSR 

•DEVICE FATAL SSR FAILED TO SET 

TRAP CtERDF 
.UORD 806 
.UORO T195SSR 
.WORD PKTSSR 

•SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 
WORDS 0-7 EXPD-RECV (NOT TESTING) 
EXPECTED READ STATUS 
RECV READ STATUS 
EXPO UORD 46 - RECV TENP 
EXPO ICER -0 
EXPO IFm -O 
EXPO ZNER -0 

EXPO yORD 49 • RECV (NOT TESTING) 
tNiGH RECV ADDRESS FOR CKNSG2 
I LOU RECV ADDRESS FOR CKNSG2 
lEXPO ADDRESS 

•NUMBER OF BYTES TO COMPARE 

•EXPO EQUAL RECV? 

(880 

•BR IF YES 



• SET 
•GET 
•GET 

• SET 

• SET 

• SET 
I SET 

• SET 



057554* 
002752' 

002516' 

000200 

000100 

000040 

002512' 



1601 : CKLOOP 

t REPEAT FOR ALL TEST PATTERNS IN 

aR T19PREV 

NOV #TSTBLK.R5 

200t: NOV (R5)».R0 

MOV R5.TSTPTR 

BIC mic.zfao.ro 

BIC •uc.iotad.ro 

BIC •UC.I1TAD.ro 

MOV RO.DATA 



•REPORT ERROR 

TRAP 
.UORD 
.WORD 
.UORO 

•LOOP ON ERROR. IF FLAG SET 

TRAP 

TSTBLK TABLE 

•INIT l-O TRANSITION FLAG 
•GET FIRST PATTERN ADDRESS 
•GET A TEST PATTERN 
•SAVE POINTER INTO TSTBLK 
•IFAD MUST ALWAYS -O 
(ITADO MUST ALWAYS -0 
•ITAOl MUST ALWAYS -0 
•SET DATA PATTERN 



CIERHRO 
809 

T197CMP 
MSGLOOP 

C»CLPl 



D14 



SEQ 172 



4050 








4031 








403^ 


052550 


015700 


002312' 


4055 


052554 


004757 


062004' 


4054 








4055 


052540 


004757 


061662' 


4056 


052544 


012704 


062220' 


4057 


052550 


010465 


000000 


4058 


052554 


004737 


016146' 


4059 


052560 






4040 


052574 


105407 




4041 


052576 


010001 




4042 


052600 






4043 


052600 








052600 


104455 






052602 


001452 






052604 


060505' 






052606 


011656' 




4044 


052610 


005237 


002222' 


4045 


052614 








052614 


104406 





4046 
4047 
4046 
4049 
4050 
40S1 
40S2 
4053 
4054 
4055 
4056 
4057 
4058 
4059 
4060 



4061 
4062 

4063 
4064 
4065 
4066 
4067 
4068 
4069 
4070 
4071 
4072 



052616 
052622 
052626 
052630 
052634 
052640 
052644 
052650 
052664 
052666 
052670 
052670 
052670 
052672 
052674 
052676 
052700 
052704 
052704 

052706 
052712 
052716 
052722 
052726 
052742 
052744 
052746 
052746 
052746 
052750 
052752 
052754 



013700 
004737 
000300 
004737 
012704 
010465 
004737 

103407 
010001 



002312' 
062004* 

061702' 
062220' 
000000 
016146' 



212$: 



220* i 



104455 
001453 

060352' 
011656' 

005237 002222' 
104406 

004737 061520' 
012704 062220' 
010465 000000 
004737 016146' 

103407 
010001 



104455 
001454 
060064' 
011656' 



232ti 



240t: 

t 



252* : 



nov data.ro 

JSR PC.T19CNVT 



JSR PC,T19UCTL 
MOV •T19PK2,R4 
nov R4.TS0B(R5) 
JSR PC.CHKTSSR 
FORCERROR 212« 
BCS 2201 
MOV RO.Rl 
NEXT.ERRNO 
ERROT ERRN0.T197SSR.PKTSSR 



•GET TEST PATTERN 

I CONVERT PATTERN TO CONTROL ORIVE MASK 
|R0 CONTAINS WRITE CONTROL DATA HERE 
I SETUP PACKET FOR URITE CONTROL 
iGET URITE SUBSYSTEM COMMAND PACKET 
•SET THE PACKET ADDRESS TO EXECUTE 
lUAIT FOR SSR TO SET 

iSUFORCE ERROR IF FORCER- 1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



INC 

CKLOOP 



FATFLC 



•DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

iSET FATAL ERROR FLAG 
iLOOP ON ERROR, IF FLAG SET 

TRAP 



CIEROF 
810 

TI97SSR 
PKTSSR 



CtCLPl 



Do Writ* Sub«y«t««i Writ* Fomtat to Driv* loopback •ignal* 

" T19CNVT TO SETUP WRITE CONTROL PATTERN 



CALL 

MOV DATA.RO 

JSR PC.T19CNVT 

SUAB RO 

JSR PCTl^^^MT 

MOV «T19PK«!.R4 

MOV R4.TS0B(RS) 

JSR PC.CM(TSSR 
FORCERROR 2321 

BCS 240* 

MOV RO.Rl 
NEXT .ERRNC 

ERRDF ERRN0.T198SSR. PKTSSR 



INC 

CKLOOP 



FATFLG 



Do • Writ* Sub«y«t*« READ STATUS 

JSR PC.T19SW) 

MOV •T19PK2.R4 

MOV R4.TSD6(R5) 

JSR PC.CM(TSSR 

FORCERROR 252 t 

BCS 260$ 

MOV RO.Rl 

NEXT.ERRNO 

ERROF ERRN0.T19SSSR. PKTSSR 



I GET TEST PATTERN 

•CONVERT PATTERN TO FORMAT DRIVE MASK 
• MITE FORMAT DATA RETURNED IN HIGH BYTE 
•SETUP PACKET FOR URITE FORMAT 
•GET WRITE SUBSYSTEM COMMAND PACKET 
•SET THE PACKET ADDRESS TO EXECUTE 
•WAIT FOR SSR TO SET 

iSSDFORCE ERROR IF FORCER- 1 
•BR IF CARRY SET (GOOD RETURN) 
•SAVE CONTENTS OF TSSR 

•DEVICE FATAL SSR FAILED TO SET 

TRAP C$EROF 

.WORD 811 

.WORD T198SSR 

.WORD PKTSSR 

•SET FATAL ERROR FLAG 
•LOOP ON ERROR. IF FLAG SET 

TRAP C$CLP1 



•SETUP PACKET FOR READ STATUS 
•GET WRITE SUBSYSTEM COMMAND PACKET 
•SET THE PACKET ADDRESS TO EXECUTE 
•WAIT FOR SSR TO SET 

•aSDFORCE ERROR IF FORCER -1 
•BR IF CARRY SET (GOOD RETURN) 
•SAVE CONTENTS OF TSSR 

(DEVICE FATAL SSR FAILED TO SET 

TRAP CtEROF 
.WORD 812 
.WORD T193SSR 
.WORD PKTSSR 



TSV5 HMtOUARC TESTS MACRO MlllS 
TEST 8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TES 



E14 



Pl_FEB-a«_p:02 



4075 


052756 


005237 


002222' 


4074 


052762 
052762 


104406 




4075 








4076 


052764 


004737 


061760' 


4077 


052770 


01 3701 


057622' 


4078 


052774 


012702 


062112' 


4079 


053000 


013711 


002312* 


4060 


053004 


013700 


057534' 


4061 


053010 


013703 


002312* 


4062 


053014 


012704 


000400 


4063 


053020 


040411 




4064 


053022 


030400 




4065 


053024 


001403 




4066 


053026 


030403 




4067 


053030 


001001 




4066 


053032 


050411 




4069 


053034 


012704 


001000 


4090 


053040 


040411 




4091 


053042 


030400 




4092 


053044 


001403 




4093 


053046 


030403 




4094 


053050 


001001 




4095 


053052 


050411 




4096 


053054 


012704 


002000 


4097 


053060 


040411 




4096 


053062 


030400 




4099 


053064 


001403 




4100 


053066 


030403 




4101 


053070 


001001 




4102 


053072 


050411 




4103 


053074 


011100 




4104 








4105 


053076 


012704 


004000 


4106 


053102 


05040C 




4107 


053104 


030437 


057534- 


4106 


053110 


001403 




4109 


053112 


030403 




4110 


053114 


001401 




4111 


053116 


040400 




4112 


053120 


052700 


040000 


4113 


053124 


052700 


020000 


4114 


053130 


042700 


100000 


4115 


053134 


032712 


100000 


4116 


053140 


001402 




4117 


053142 


052700 


100000 


4116 


053146 


010011 




4119 


053150 


016261 


000002 


4120 


053156 


005000 




4121 


053160 


012701 


062072' 


4122 


053164 


012702 


057602* 


4123 


053170 


012703 


000024 


4124 


053174 


004737 


011310* 


4125 


053200 




4126 


053210 


103404 




4127 


053212 






4128 


053212 







260t: 
t 



2751: 



280»: 



285»: 
t 



2681: 



290»: 



INC 

CKLOOP 



FATFLG 



If loopback dmtm NOT* data —nt 

JSR RC.T19SETEXP 

nOV •T19EXSTA.R1 

nOV •T198rSTA.R2 

nOV OATA.(Rl) 

NOV T19PREV.R0 

nOV OATA.RS 

NOV •S1.IHER.R4 

BIC R4.CR1) 

BIT R4.R0 

BEQ 275* 

BIT R4.RS 

BNE 275» 

BIS R4,CR1) 

MOV •Sl.IFn(.R4 

BIC R4.(R1) 

BIT R4.R0 

BEQ 2801 

BIT R4.R3 

BNE 2801 

BIS R4.(R1) 

MOV #S1.ICER.R4 

BIC R4.(R1) 

BIT R4.R0 

BEQ 2851 

BIT R4.R3 

BNE 2851 

BIS R4.(R1) 

NOV (RD.RO 



3029: 



If previous IIOENT-1 and currant 

NOV #S1.II0ENT.R4 

BIS R4.R0 

BIT R4.T19PREV 

BEQ 2881 

BIT R4.R3 

BEQ 2881 

BIC R4.R0 

BIS #S1. I2RES.ro 

BIS #S1.I1RES.R0 

BIC tSl.PARERR.RO 

BIT •S1.PARERR.(R2) 

BEQ 2901 

BIS #S1.PARERR.R0 

NOV RO.CRl) 

NOV 2CR2}.2(R1) 

CLR RO 

NOV •T19BFR.R1 

NOV •T19EXP.R2 

NOV #20., R3 

JSR PC.CKNSG2 
FORCERROR 3O2I.N0TSSR 

BCS 3101 
NEXT.ERRNO 

ERRNRO ERRN0.T198CNP.NSGL00P 



SEO 173 

SET FATAL ERROR FLAG 

LOOP ON ERROR. IF FLAG SET 

TRAP C»CLPl 

Than Print Error 
SET UORDS 0-7 EXPD-RECV (NOT TESTING) 
GET EXPECTED REM) STATUS 
GET RECV REM) STATUS 
SET EXPO UORO M TO TEST DATA FIRST 
GET PREVIOUS DATA PATTERN 
GET CURRENT PATTERN 
SETUP INER EXPECTED 
SET EXPO INER -0 
PREVIOUS -1? 
8R IF NO 
CURRENT -07 
8R IF NO 

SET EXPO INER -1 
SETUP irm EXPECTED 
SET EXPO IFm -0 
PREVIOUS -17 
BR IF NO 
CURRENT -0? 
BR IF NO 

SET EXPO IFm •! 
SETUP ICER EXPECTED 
SET EXPO ICER -0 
PREVIOUS •!? 
BR IF NO 
CURRENT -O? 
BR IF NO 

SET EXPD ICER -1 
GET EXPD UORD 

ia IIOENT-1 than EXPD- 0 alaa 1 
IIOENT 

ASSUME EXPD-1 
PREVIOUS IIOENT-1? 
BR IF NO 

IS CURRENT IIOENT-1? 
BR IF NO 
SET EXPD-0 
IRESV2 EXPD ALWAYS- 1 
IRESVl EXPO ALUAYS-1 
IGNORE PARERR 
IS PARERR SET IN RECV? 
BR IF NO 
SET IN EXPD 

SETUP FINAL EXPO IN UORO «8 
SET EXPD UORO «9 • RECV (NOT TESTING) 
HIGH RECV ADDRESS FOR CKNSG2 
LOU RECV ADDRESS FOR CKMSG? 
EXPO ADDRESS 

NUNBER OF BYTES TO COMPARE 
EXPO EQUAL RECV? 



BR IF YES 
I REPORT ERROR 



F14 



TSV5 HARDWARE TESTS HACRO MlllS 01-FEB-S4 17:02 
TEST 6: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST 



SEQ 174 





053212 


104456 






053214 


001455 






053216 


061111' 






053220 


012674' 




4129 


053222 








053222 


104406 




4130 








4131 


053224 


00473V 


061540' 


4132 


053230 


012704 


062220' 


4133 


053234 


010465 


000000 


4134 


053240 


004737 


016146' 


4135 


053244 






4136 


053260 


103407 




4137 


053262 


010001 




4136 


053264 






4139 


053264 








053264 


104455 






053266 


001456 






053270 


060020' 






053272 


011656' 




4140 


053274 


005237 


002222' 


4141 


053300 








053300 


104406 




4142 








4143 


053302 


004737 


061520' 


4144 


053306 


012704 


062220' 


4145 


053312 


010465 


000000 


4146 


053316 


004737 


016146' 


4147 


053322 






4146 


053336 


103407 




4149 


053340 


010001 




4150 


053342 






4151 


053342 








053342 


104455 






053344 


001457 






053346 


060064' 






053350 


011656' 




4152 


053352 


005237 


002222' 


4153 


053356 








053356 


104406 




4154 


053360 


004737 


061760' 


4155 


053364 


012701 


057622' 


4156 


053370 


012702 


062112' 


4157 


W 

053374 


011211 




4156 


053376 


042711 


002000 


4159 


053402 


042711 


001000 


4160 


053406 


042711 


000400 


4161 


053412 


016261 


000002 000002 










4163 


053422 


012701 


062072' 


4164 


053426 


012702 


057602* 


4165 


053432 


012703 


000024 


4166 


053436 


004737 


011310* 


4167 


053442 






4166 


053452 


103404 




4169 


053454 






4170 


053454 







510* : 
I 



S22>i 



3301: 
t 



CKLOOP 

Do • Writ* SubsystM Writ* Hii 

JSR PC.T19RSFIF 
nOV •T19I1K2.R4 
nOV R4.TS0BCRS) 
JSR PC.CHKTSSR 
FORCERROR 322 • 

8CS 3301 
MOV RO.Rl 
NEXT.ERRNO 

ERROF ERRN0.T192SSR.PKTSSR 



TRAP CIERHRO 
.WORD 615 
.WORD T196CnP 
.WORD MSGLOOP 

iLOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 

to Pooot Tap* Statu* F-FLOPS 

I SETUP PKT FOR WRITE HISC Rooot STATUS 

iGET WRITE SUBSYSTEM CONHANO PACKET 

I SET THE PACKET ADDRESS TO EXECUTE 

tUAIT FOR SSft TO SET 

18SOFORCE ERROR IF FORCER -1 

iBR IF CARRY SET (GOOD RETURN) 

tSAVE CONTENTS OF TSSR 



INC 

CKLOOP 



FATFLG 



SUboyotOM READ STATUS 
PC.T19SA0 



Do • Writo 

JSR 

NOV •T19PK2.R4 
NOV R4.TSDBCRS) 
JSR PC.CmTSSR 
FORCERROR S42t 
BCS SSOt 
NOV RO.Rl 
NEXT.ERRNO 
S42t: ERROr ERRN0.T195SSR.PKTSSR 



{DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

{SET FATAL ERROR FLAG 
•LOOP ON ERROR. IF FLAG SET 

TRAP 



CIEROF 
614 

T192SSR 
PKTSSR 



OCLPl 



} SETUP PACKET FOR READ STATUS 
iGET WRITE SUBSYSTEM COmAND PACKET 
I SET T»C PACKET ADDRESS TO EXECUTE 
I WAIT FOR SSR TO SET 

iSSDFORCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOD RETURN) 
tSAVE CONTENTS OF TSSR 



INC FATFLG 
3S0»: CKLOOP 

JSR 
NOV 
NOV 
NOV 
BIC 
BIC 
BIC 
NOV 
CLR 
NOV 
NOV 
NOV 
JSR 

FORCERROR 
BCS 370» 
NEXT.ERRNO 
S62»: ERRHRD ERRNO. T197CnP.nSGSTAT 



PC.T19SETEXP 

•T19EXSTA.R1 

#T19BFSTA.R2 

(R2).(R1) 

•Sl.ICER.(Rl) 

•Sl.IFf9(.(Rl) 

*S1.IHER.(R1) 

2(R2).2(R1) 

RO 

•T19BFR.R1 
•T19CXP,R2 
♦20..R3 
PC.CKnSG2 

362I.N0TSSR 



iSET 
jGET 
iGET 
iSET 
iSET 
iSET 
iSET 
iSET 



CtEROF 
615 

T193SSR 
PKTSSR 



OCLPl 
TESTING) 



•DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

I SET FATAL ERROR FLAG 
tLOOP ON ERROR. IF FLAG SET 

TRAP 

WORDS 0-7 EXPO-RECV (NOT 
EXPECTED READ STATUS 
RECV READ STATUS 
EXPD WORD *6 - RECV TENP 
EXPD ICER -0 
EXPD IFNK -0 
EXPD IHER -0 

EXPD WORD «9 • RECV (NOT TESTING) 
iHIGH RECV ADDRESS FOR CKriSG2 
I LOW RECV ADDRESS FOR CKHSGS 
I EXPO ADDRESS 

I NUMBER OF BYTES TO COMPARE 
I EXPD EffJAL RECV? 



IF YES 



I 

I BR 



•REPORT ERROR 



G14 



TSV5 HAROUARE TESTS HACRO nill3 OlFEB-84 17:02 
TEST 8: SUBTEST It LOOPBACK CONTROL SIGNAL TEST 



4171 

4172 
4175 
4174 
4175 
4176 
4177 
4178 
4179 
4180 



4181 
4182 
418S 
4184 
4185 
4186 
4187 
4188 
4189 
4190 
4191 
4192 
419S 
4194 
4195 
4196 
4197 
4196 
4199 
4200 
4201 
4202 
4203 
4204 
4205 
4206 
4207 
4208 
4209 
4210 
4211 
4212 
4213 
4214 
4215 
4216 
4217 
4218 
4219 
4220 



053454 
053456 
053460 
053462 
053464 
053464 

053466 
053474 

055500 
053504 
053506 
053512 

053512 
053512 
053512 

053514 
053520 
055522 
053526 



104456 
001460 

061023- 
012160' 

10440€ 

013757 002312' 057534' 

013703 002316' 

020327 003062' 
103002 

000137 052502' 



104403 

005737 002222' 
001402 

004737 017014' 



3701: CKLOOP 



MOV 

MOV 

CMP 

SHIS 

JMP 



TRAP 
.WORD 
.WORD 
.WORD 

I LOOP ON ERROR, ir FLAG SET 

TRAP 



SEO 175 



CtERHRD 
816 

T197CMP 
MSGSTAT 

CICLPl 



4001: 



0ATA.T19PREV 

TSTPTR.R5 

R5.«TBLEN0 

4001 

2001 



4601: 



ENOSUB 



TST 
BEQ 
JSR 



I SETUP PREVIOUS DATA FOR EXPO CALC. 
iRESTORE CURRENT TSTBLK POINTER 
I END OF TSTBLK? 
I BR IF YES 

I 00 NEXT TSTBLK PATTERN 



1 //////////// END SUBTEST ////////// 
L 10067: 

TRAP CIESUB 



FATFLG 
460t 

PC.CKOROP 



(ANY FATAL ERRORS ? 

I BRANCH IF NOT 

{TRY TO DROP THE UNIT 



.SBTTL TEST S: SUBTEST 2: LOOPBACK REAO/URITE SIGNALS TEST 



TEST 8: SUBTEST 2t 

SUBTEST DESCRIPTION: 

Thi« aubtMt v*r;f;M thtt R««d/Urit« data loepback Rath. 
Tha Raad/Urita data siflnaU ar« IR<7:0> and iy<7:0> 
r aapa c ti vly. 

TEST STEPS: 

REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
BEGIN 

Urita to TSSR raoiatar to aoft initializa tha control lar 

Do URITE CHARACTERISTICS to cback for Extandad Faaturaa Switch 

If EKtandad Faaturaa Ha r dbiara Switch Claar than: 

Do WrSta SUbayata* Mrita Hiacallanaouo to Sat Extandad fmrnt^r^. 
Do URITE CHARACTERISTICS to aalact rm—r^md unit 7 and aatup BUFFER 
Do a Urita Subayata* URITE NPR to oat tapa diraction out and LooRback 
Do a URITE NPR to aat looRback and tapa diraction OUT 
Do a URITE FIFO with byta count a^ual to 1 and It^ diraction OUT 
Do a REM) FIFO with t^ diraction OUT to load tapa out writ* latch 
Do a URITE NPR to aat loopback and tapa diraction IN 
Do a URITE FIFO with byta count a«ual to 1 and Tapa diraction IN 

to otroba loopback data into FIFO. 
Do a READ FIFO with tapa diraction IN to road data 
If Data raad fro* FIFO NOT- to Data aant Than Print Error 
Do a Urita Subayatam READ STATUS 
If Input Raady NOT" I Than Print Error 
If Output Raady N0T«O Than Print Error 
If Data In Hiaa NOT-0 Than Print Erro. 



H14 



TSV5 
TEST 



HARDWARE TESTS MACRO N1113 Ql-FEB-M 17:02 
8: SUBTEST 2-. LOOPBACK REAO/URITE SIGNALS T^ST 



SCO 176 



4221 
4222 





ASXS2^ 
0S3S26 






OS3S26 


104402 


4224 






4225 


0SSS30 




4226 


053530 


004737 


4227 


053534 


103405 


422S 


05SS36 


010001 


4229 


053540 






053540 


104455 




053542 


001460 




053544 


003646' 




053546 


011644* 


4230 






4231 


053550 


005037 


4232 


053554 


012704 


4233 


053560 


004737 


4234 


053564 




4235 


053600 


103407 


4236 


053602 


010001 


4237 


053604 




4236 


053604 






053604 


104455 




053606 


001461 




053610 


057763' 




053612 


011656' 


4239 


053614 


005237 


4240 


053620 






053620 


104406 



t 

I - ■ 



I 



END 



ioi: 



4241 
4242 
4243 
4244 
4245 
4246 
4247 
4248 
4249 
4250 
4251 
4252 
4253 
4254 



4255 
4256 

4257 
4256 
4259 
4260 
4261 



053622 
053626 
053634 
053636 
053642 
053646 
053652 
053656 
053672 
053674 
053676 
053676 
053676 
053700 
053702 
053704 
053706 
053712 
053712 

053714 
053720 
053724 
053740 



012701 062072' 

032761 000200 000012 
001026 

004737 061722' 

012704 062220' 

010465 000000 

004737 016146' 

103407 
010001 



104455 
001462 
060020' 
011656' 

005237 002222' 
104406 

012704 062050' 
004737 010472' 

103407 



12»: 



15«: 

t 
I 



22t: 



SOtt 
I 



BGNSUB I //////////// BEGIN SUBTEST ////////// 

T8.2: 

TRAP C9BSUB 

Writ* to TSSR r«oi*t«r to soft irtitiolix* th« controller 



JSR 
BCS 
MOV 
ERROF 



PC.SOFINIT 

101 

RO.Rl 

ERfWO . SF lERR . SF IMSG 



I WRITE TO TSSR TO SOFT INITIALIZE 
iBR IF SOFT INIT OKAY 
I SAVE CONTENTS OF TSSR 
I DEVICE FATAL DURING INIT 

TRAP CIEROF 
.WORD 616 
.WORD SFIERR 
.WORD SFIMSG 

Do WRITE CHARACTERISTICS to chMk for Ext«n4«d FooturM Switch 



CLR FATFLG 
HOV •T19PACKET.R4 
JSR PC.WRTCHR 
FORCERftOR 12* 
BCS 151 
MOV RO.Rl 
NEXT.ERRNO 

ERROF ERRN0.T19SSR.PKTSSR 



•CLEAR FATAL ERROR FLAG 
I GET THE ADDRESS OF COMMAND PACKET 
iDO WRITE CHARACTERISTICS COMMAND 

iMOFORCE ERROR IF FORCER -1 
tBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



(DEVICE FATAL SSR FAILED TO SET 

TRAP CtEROF 
.WORD 617 
.WORD T19SSR 
WORD PKTSSR 

INC FATFLG tSET FATAL ERROR FLAG 

CKLOOP I LOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 

If Extondod Footuroo HardMor* SMitch Cloor thon: 
Do Writ* Sub«y«t«ii Writ* Miocollanoous to Sot Extondod Footuros. 



nOV •T196FR.R1 
BIT •X2.EXTF.XST2(R1) 
BNE sot 
JSR PC.T19SEXT 
HOV #T19PK2.R4 
nOV R4.TS06(R5) 
JSR PC.CHKTSSR 
rORCERROR 22» 
BCS 301 
HOV RO.Rl 
NEXT.ERRNO 

ERROF ERRN0.T192SSR. PKTSSR 



iHESSAGE BUFFER ADDRESS 
I EXTENDED FEATURES SWITCH SET? 
I BR IF YES 

(SETUP PACKET FOR WRITE HISC INVERT 
iGET WRITE SUBSYSTEH COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
I WAIT FOR SSR TO SET 

tSSOFORCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOD RETURN) 
tSAVE CONTENTS OF TSSR 



iOEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 
.WORD 818 
.WORD T192SSR 
WORD PKTSSR 

INC FATFLG iSET FATAL ERROR FLAG 

CKLOOP I LOOP ON ERROR. IF FLAG SET 

TRAP CtCLPl 

Do WRITE CHARACTERISTICS to soloct rooorvotf unit 7 
MOV •T19PACKET.R4 iGET THE ADDRESS OF COMMAND PACKET 

JSR PC.WRTCHR I DO WRITE CHARACTERISTICS COMMAND 

FORCERROR 4? I iSSOFORCE ERROR IF FORCER >1 

BCS 501 iBR IF CARRY SET (GOOD RETURN) 



114 



TSVS - HAROUAPE TESTS MACRO HlllS Ol-rEB-84 17:02 
TEST 6: SUBTEST 2: LOQPBACK REAO/URITE SIGNALS TEST 



SEQ 177 



4262 


055742 


010001 




nov RO.Rl 


iSAVE CONTENTS OF TSSR 




4263 


053744 






NEXT.ERRNO 






4264 


053744 




421: 


ERRDF ERRN0.T19SSR.PKTSSR 


1 DEVICE FATAL SSR FAILED TO SET 






053744 


104455 






TRAP 


CIERDF 




053746 


001463 






.WORD 


819 




053750 


057763* 






.UORO 


T19SSR 




053752 


011656* 






.WORD 


PKTSSR 


4265 


053754 


005237 002222* 




INC FATFLG 


iSET FATAL ERROR FLAG 




4266 


053760 




50* : 


CKLOOP 


iLOOP ON ERROR, IF FLAG SET 






053760 


104406 






TRAP 


CICLPl 



4267 
4268 
4269 
4270 
4271 
4272 
4273 
4274 
4275 
4276 
4277 
4278 
4279 
4280 
4281 
4282 
4283 
4284 
4285 



4286 
4287 

4288 
4289 
4290 
4291 
4292 
4293 
4294 
4295 
4296 
4297 
4298 
4299 



4300 
«iOl 

4302 
4303 



053762 
053766 
053772 
054000 

054004 
054010 
054014 
054020 
054024 
054030 
054034 
054050 
054052 
054054 
054054 
054054 
054056 
054060 
054062 
054064 
054070 
054070 

054072 
054076 
054102 
054106 
054112 
054116 
054122 
054136 
054140 
054142 
054142 
054142 
054144 
054146 
054150 
054152 
054156 
054156 



012703 
012337 
042737 
010337 

012700 
052700 
004737 
012704 
010465 
004737 

103407 
010001 



002752' 
002312* 

177400 002312' 
002316* 

000100 

000040 

061562* 

062220* 

000000 

016146* 



I REPEAT FOR 

nov 



ALL TEST PATTERNS IN TST8LK TABLE 



1001: 



104455 
001464 

060131' 
011656' 

005237 002222' 



104406 

012700 
012701 
004737 
012704 
010465 
004737 

103407 
010001 



1021 1 



1051: 



000001 

002312* 

061626* 

062220' 

000000 

016146' 



104455 
001465 
060174' 
011656' 

005237 002222' 



104406 
054160 012700 000001 



1071: 



1101: 



♦TSTBLK.R3 
(R3)«.DATA 
•tC<377>.DATA 
R3,TSTPTR 
URITE NPR to Mt loopbMk 
•NP.OUT.RO 

•np.loop.ro 

PC.T19SNPR 
•T19PK2.M 
R4.TS0B(R5) 
PC.CHCTSSR 

1021 



NOV 
BIC 
NOV 
Oo ■ 
NOV 
BIS 
JSR 
NOV 
NOV 
JSR 

FORCERROR 
BCS 105* 
NOV RO.Rl 
NEXT.ERRNO 

ERRDT ERRN0.T194SSR.PKTSSR 



iGET FIRST PATTERN ADDRESS 
iGET A TEST PATTERN 
lOATA IS BYTE 

t SETUP CURRENT TSTBLK POINTER 
and tap* tf!r«ction OUT 
I SET TAPE DIRECTION OUT 
I SET LOOPBACK 

I SETUP T19PK2 FOR URITE »tf>R 
iGET URITE SUBSYSTEM COTtlAND PACKET 
tSET TNE PACKET ADDRESS TO EXECUTE 
tUAIT FOR SSR TO SET 

tBKFORCE ERROR IF FORCER- 1 
iBR IF CARRY SET (GOOD RETURN) 
tSAVE CONTENTS OF TSSR 



INC 

CKLOOP 



Do a 

NOV 
NOV 
JSR 
NOV 
NOV 
JSR 



I DEVICE FATAL SSR FAILED TO SET 

TRAP C«ERDF 
.WORD 820 
.UORO T194SSR 
.UORO PKTSSR 

(SET FATAL ERROR FLAG 
(LOOP ON ERROR. IF FLAG SET 

TRAP CtCLPl 

URITE FIFO Kith byt« count •«m1 to 1 and Tap* direction OUT 

I URITE 1 BYTE 

tFIFO URITE DATA ADDRESS 
I SETUP T19PK2 FOR URITE FIFO 
iGET URITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
tUAIT FOR SSR TO SET 

taSDFORCE ERROR IF FORCER -1 
tBR IF CARRY SET (GOOD RETURN) 
;SAVE CONTENTS OF TSSR 



FATFLC 



•l.RO 
«0ATA.R1 
PC.T19UFIF 
«Ti9PK2.R4 
R4.TS0B(R5) 
PC.Df<TSSR 

107$ 



FORCERROR 
BCS 1101 
MOV RO.Rl 
NEXT.ERRNO 

ERROF ERRND.T195SSR.PKTSSR 



{DEVICE FATAL SSR FAILED TO SET 

TRAP CtERDF 
.UORO 821 
.UORO T19SSSR 
.UORO PKTSSR 

INC FATFLG iSET FATAL ERROR FLAG 

CKLOOP I LOOP ON ERROR. IF FLAG SET 

TRAP CSCLPl 

Do a READ FIFO with tap* d«r«ct!on OUT to load tap* out Mr>t* Latch 
MOV •l.W iSET READ BYTE COUNT 



J14 



TSV5 HARDWARE TESTS HACRO M1113 Ol-FEB-64 17:02 



TEST a 


: SUBTEST 2: LOOPBACK RE 


4304 


054164 


004737 


061606' 


4305 


054170 


012704 


062220' 


4506 


054174 


010465 


000000 


4307 


054200 


004757 


016146' 


4308 


054204 






4309 


054220 


103407 




4310 


054222 


010001 




4311 


054224 






4312 


054224 








054224 


104455 






054226 


001466 






054230 


060240' 






054232 


011656' 




4313 


054234 


005237 


002222' 


4314 


054240 








054240 


104406 




4315 








4316 


054242 


005000 




4317 


054244 


052700 


000040 


4318 


054250 


004737 


061562' 


4319 


054254 


012704 


062220' 


4320 


054260 


010465 


000000 


4321 


054264 


004737 


016146' 


4322 


054270 






4323 


054304 


103407 




4324 


054306 


010001 




4325 


054310 






4326 


054310 








054310 


104455 






054312 


001467 






054314 


060131' 






054316 


011656' 




4327 


054320 


005237 


002222' 


4328 


054324 








054324 


104406 




4329 








4330 


054326 


012700 


000001 


4331 


054332 


012701 


002312' 


4332 


054336 


004737 


061626' 


4333 


054342 


012704 


062220' 


4334 


054346 


010465 


000000 


4335 


054352 


004737 


016146' 


4336 


054356 






4337 


054372 


103407 




4338 


054374 


010001 




4339 


054376 






4340 


054376 








054376 


104455 






054400 


001470 






054402 


060174' 






054404 


011656' 




4341 


054406 


00S2S7 


002222' 


4342 


054412 








054412 


104406 




4343 








4344 








4345 


054414 


012700 


000001 



1221; 



I90»$ 
I 



142$: 



1501: 

> 



162<: 



1701: 

I 
I 



JSR PC.T19RFir 
MOV ♦T19PK2,R4 
nOV R4.TS0B(RS) 
JSR PC.CMKTSSR 
FORCERROR 1221 
BCS ISOt 
nOV RO.Rl 
NEXT.ERRNO 

ERROF ERRNO . T 196SSR . PKTSSR 



INC 

CKLOOP 



FATFLC 



Do • WRITE NPR to Mt loepback 

CLR RO 
BIS •NP.LOOP.ro 
JSR PC,T19SNPR 
HOV #T19PK2.R4 
HOV R4.TSDB(RS) 
JSR PC.CHKTSSR 
FORCERROR 142 t 

BCS 1501 
nOV RO.Rl 
NEXT.ERRNO 

ERROF ERRNO. T194SSR. PKTSSR 



SEQ 178 



♦SETUP T15PK2 FOR READ FIFO 
•GET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
(WAIT FOR SSR TO SET 

iSSOFORCE ERROR IF FORCER- 1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 

I DEVICE FATAL SSR FAILED TO SET 

TRAP CIERDF 
.WORD 822 
.WORD T196SSR 
.UORD PKTSSR 

tSET FATAL ERROR FLAG 
iLOOP ON ERROf". IF FLAG SET 

TRAP CtCLPl 

tap* diravtion IN 
• aR M>.OUT TO SET TAPE DIRECTION IN 
I SET LOOPBACK 

I SETUP T19PK2 FOR WRITE NPR 
•GET WRITE SUBSYSTEM COTtMND PACKET 
tSET THE PACKET ADDRESS TO EXECUTE 
tUAIT FOR SSR TO SET 

188OFORCE ERROR IF FORCER- 1 
iBR IF CARRY SET CGOOD RETURN) 
I SAVE CONTENTS OF TSSR 



•l.RO 
40ATA.R1 
PC,Ti9gFIF 
•T19PK2.R4 
R4.TS0e(RS) 
PC.CHKTSSR 

162$ 



I DEVICE FATAL SSR FAILED TO SET 

TRAP CtEROF 
.WORD 623 
.WORD T194SSR 
.WORD PKTSSR 

INC FATFLG tSET FATAL ERROR FLAG 

CKLOOP iLOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 

Do • WRITE FIFO Mith byte count oqual to 1 and Tap* dirwrtion IN 

I WRITE I B TE 

iFIFO WRITE DATA ADDRESS 
I SETUP T19PK2 FOR WRITE FIFO 
tGET WRITE SUBSYSTEM COmAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
tUAIT FOR SSR TO SET 

18SOFORCE ERROR IF FORCER-1 
iBR IF CARRY SET CGOOD RETURN) 
I SAVE CONTENTS OF TSSR 



MOV 
MOV 
JSR 
MOV 
MOV 
JSR 

FORCERROR 
BCS 1701 
MOV RO.Rl 
NEXT.ERRNO 

ERROF ERRNO . T 19SSSR . PKTSSR 



I DEVICE FATAL SSR FAILED TO SET 

TRAP CtEROF 
.WORD 824 
.WORD T195SSR 
.WORD PKTSSR 

INC FATFLG I SET FATAL ERROR FLAG 

CKLOOP I LOOP ON ERROR. IF FLAG SET 

TRAP CICLPI 

Do a READ FIFO Mith tap* dir*etion IN to road data 

If Data r*ad f>*oiii FIFO NOT- to Data aant Than Print Error 

MOV n.RO tSET READ BYTE COUNT 



TSV5 
TEST 



- HARDWARE TESTS MACRO M1113 Ql-FEB-84 17:02 
8: SUBTEST 2: LOOPBACK REAO/URITE SIGNALS TEST 



K14 



SEQ 179 



4546 


054420 


004737 


061606' 




JSP 


PC.T19RFIF 


1 SETUP T19PK2 FOR READ FIFO 




4347 


054424 


012704 


062220* 




MOV 


4»T19PK2,R4 


iGET WRITE SUBSYSTEM COMMAND PACKET 


4346 


054430 


010465 


000000 




MOV 


R4.TSDB(RS) 


iSET THE PACKET ADDRESS TO EXECUTE 


4349 


054434 


004737 


016146' 




JSR 


PC.CHKTSSR 


tUAIT FOR SSR TO SET 




4350 


054440 








FORCERROR 1621 


iBfiOFORCE ERROR IF FORCER -1 


4351 


054454 


103407 






BCS 


1901 


iBR IF CARRY SET (GOOD RETURN) 




4352 


054456 


010001 






MOV 


RO.Rl 


iSAVE CONTENTS OF rSSR 




4353 


054460 








NEXT.ERRNO 






4354 


054460 






1621: 


ERRDF 


ERRNO. T196SSR .RKTSSR 


{DEVICE FATAL SSR FAILED TO SET 




O!:;4460 


104455 










TRAP 


OERDF 




054462 


001471 










.WORD 


625 




054464 


060240' 










.UORO 


T1<»6SSR 




054466 


011656' 










.WORD 


PKTSSR 


4355 


054470 


005237 


002222' 




INC 


FATFLG 


iSET FATAL ERROR FLAG 




4356 


054474 






1901: 


CKLOOP 




iLOOP ON ERROR, IF FLAG SET 






054474 


104406 










TRAP 


CICLPl 


4357 


054476 


004737 


061760' 




JSR 


PC.T19SETEXP 


tSET WORDS 0-7 EXPD-RECV (NOT 


TESTING) 


4358 


054502 


012701 


057622' 




MOV 


#T19EXSTA«R1 


iCJET EXPECTED READ STATUS 




4359 


054506 


012702 


062112' 




MOV 


♦T19BFSTA.R2 


iGET RECV READ STATUS 




4360 


054512 


013711 


002312' 




MOV 


DATA.(Rl) 


tSET EXPD HUHU wo ' DATA 




4361 


054516 


016261 


000002 000002 




MOV 


2(R2).2(R1) 


iSET EXPO UORO «9 • RECV (NOT 


TESTING) 


4362 


054524 


005000 






CLR 


RO 


(HIGH RECV ADDRESS FOR CKHSG2 




4363 


054526 


012701 


062072' 




MOV 


#T19BFR.R1 


iLOU RECV ADDRESS FOR CKHSG2 




4364 


054532 


012702 


057602' 




MOV 


#T19EXP,R2 


(EXPO ADDRESS 




4365 


054536 


012703 


000022 




MOV 


#16. •R3 


1 NUMBER OF BYTES TO COMPARE 




4366 


054542 


004737 


011310' 




JSR 


PC,CKMSC2 


tEXPO EQUAL RECV? 




4367 


054546 








rORCERROR 2021 .NOTSSR 


1 MD 




4366 


054556 


103404 






BCS 


210$ 


iBR IF rES 




4369 


054560 








NEXT.ERRNO 






4370 


054560 






2021: 


ERRHRD 


ERRNO . T 199CMP , *1SCSUB 


(REPORT ERROR 






054560 


104456 










TRAP 


C>ER»««> 




054562 


001472 










.UORD 


826 




054564 


061200' 










.WORD 


T199CMP 




054566 


013552- 










.UORO 


nSGSUB 


4371 


054570 






2101: 


CKLOOP 




(LOOP ON ERROR. IF FLAG SET 






054570 


104406 










TRAP 


ctapi 



4372 
4373 
4374 
4375 
4376 
4377 
4378 
4379 
4380 
4381 
4382 
4383 
4384 



4385 
4366 

4387 



054572 
054576 
054602 
054606 
054612 
054626 
054630 
054632 
054632 
054632 
054634 
054636 
054640 
054642 
054646 
054646 
054650 



004737 061520' 

012704 062220' 

010465 000000 

004737 016146' 

103407 
010001 



104455 
001473 
060064' 
011656' 

005237 002222' 



Do • Ur;t« Sub«y»t«« READ STATUS 



104406 
004737 



2129: 



220 >i 



IP Ir^t Ready NOT-1 Th«n Print 
If Output R«ady NOT-0 Then Print 
If Data In Miaa NOT«0 Than Print 
JSR PC.T19SRD 
nOV #T19PK2.R4 
NOV R4.TS0BCR5) 
JSR PC.CHKTSSR 
FORCERROR 212$ 
BCS 220 » 
MOV RO.Rl 
NEXT.ERRNO 

ERRDF ERRNO. T193SSR.PKTSSR 



760' 



INC 

CKLOOP 
JSR 



FATFLG 



PC,T19SETEXP 



Error 
Error 
Error 

(SETUP PACKET FOR READ STATUS 
(GET URITE SUBSYSTEM COMMAND PACKET 
(SET THE PACKET ADDRESS TO EXECUTE 
tUAIT FOR SSR TO SET 

(880F0RCE ERROR IF FORCER -1 
(BR IF CARRY SET (GOOD RETURN) 
(SAVE CONTENTS OF TSSR 

(DEVICE FATAL SSR FAILED TO SET 

TRAP CtERDF 

\nRD 627 

.*.JRO T193SSR 

.UORD PKTSSR 

(SET FATAL ERROR FLAG 
(LOOP ON ERROR. IF FLAG SET 

TRAP C$CLPl 
(SET UORDS 0-7 EXPD-RECV (NOT TESTING) 



TSV5 
TEST 



MAROUARE TESTS MACRO M1113 01 -FEB -84 17:02 
S: SUBTEST 2: LOOPBACK REAO/i«ITE SIGNALS T^ST 



L14 



SEQ 160 



4366 


054654 


012701 


057622' 




nov 


*T19EXSTA.R1 


iGET EXPECTED READ STATUS 


4369 


054660 


012702 


062112' 




HOV 


♦T19BFSTA.R2 


iGET RECV READ STATUS 


4390 


054664 


012221 






MOV 


(R2)».(R1)» 


tSET EXPD WORD *6 • RECV TEMP 


4S91 


054666 


011211 






MOV 


(R2).(R1) 


iSET EXPD UORD •9 > RECV TEMP 


4392 


054670 


052711 


000020 




BIS 


#S2.INRDY.(R1) 


iSET EXP INPUT READY- 1 


4393 


054674 


042711 


000040 




BIC 


•S2.0UTR0Y.CR1) 


iSET EXP OUTPUT READY- 0 


4394 


054700 


042711 


000200 




BIC 


«S2.0IN.(R1) 


iSET EXP DATA IN NISS - 0 


4395 


054704 


005000 






CLR 


RO 


•HIGH RECV ADDRESS FOR CKNSG2 


4396 


054706 


012701 


062072' 




nov 


#T19BFR.R1 


iLOU RECV ADDRESS FOR CKHSG2 


4397 


054712 


012702 


057602' 




NOV 


♦T19EXP.R2 


lEXPD ADDRESS 


4396 


054716 


012703 


000024 




NOV 


*20..R3 


(NUMBER OF BYTES TO COMPARE 


4399 


054722 


004737 


011310' 




JSR 


PC.CKHSG2 


(EXPD EQUAL RECV? 


4400 


054726 








FORCERROR 232t.N0TSSR 


(BSD 


4401 


054736 


103404 






BCS 


2401 


(BR IF YES 


4402 


054740 








NEXT.ERRNO 




4403 


054740 






2S2»: 


ERRHRO 


ERRNO . T 196CNP . HSGST AT 


(REPORT ERROR 




054740 


104456 










TRAP 




054742 


001474 










.WORD 




054744 


060740' 










.UORD 




054746 


012160* 










.WORD 


4404 


054750 






240t: 


CKLOOP 




(LOOP ON ERROR. IF FLAG SET 




054750 


104406 










TRAP 



4405 
4406 
4407 
4408 
4409 
4410 
4411 
4412 
4413 
4414 
4415 



4416 
4417 
4416 
4419 
4420 
4421 
4422 
4423 
4424 
4425 
4426 
4427 
4426 
4429 
4430 
4431 
4432 
4433 
4434 
4435 
4436 
4437 



CIERMRD 
626 

T196CMP 
nSGSTAT 

C»CLP1 



054752 
054762 
054766 
054772 
054774 
055000 

055000 
055000 
055000 

055002 
055006 
055010 
055014 



013703 002316' 

020327 003062' 
103002 

000137 053766* 



104403 

005737 002222* 
001402 

004737 017014* 



255tt 



FORCEXIT 2551 
NOV TSTPTR.RS 
01P RS.«TBLEND 
SHIS 2S5I 
JNP loot 



ENDSUB 



(RESTORE CURRENT TSTBLK POINTER 
(END OF TSTBLK? 
(BR ZF YES 

(DO ANOTMER TSTFiLK PATTERN 



(//////////// END SUBTEST ////////// 
L10070: 

TRAP CtESUB 



260t: 



TST 
BEQ 
JSR 



FATFL6 
260* 

PC.CKDROP 



(ANY FATAL ERRORS ? 

(BRANCH IF NOT 

(TRY TO DROP THE UNIT 



.SBTTL TEST 6: SUBTEST 3: LOOPBACK WRITE STROBE TEST 



TEST 6: SUBTEST 3: 

SUBTEST DESCRIPTION: 

This subtMt v*rif the Writ* Strobe loopback path 
can atreba data fro* tha FIFO to tha Data lines. 
The si9>al IRESV3 drives lUSTR (write strobe) to write 
data from the FIFO to the tape data out latch. 

TEST STEPS: 

REPEAT FOR ALL TEST PATTERfS IN TSTBLK TABLE 



M14 



TSV5 - HARDWARE TESTS MACRO Mlli^ 17:02 
TEST 8: SUBTEST 3: LOOPBACK WRlt^ STRISbE TEST 



S£Q 161 



4436 
4439 
4440 
4441 
4442 
4443 
4444 
4445 
4446 
4447 
4446 
4449 
4450 
4451 
4452 
4453 
4454 
4455 
4456 



BEGIN 

Ur\tm to TSSR 



rMist«r to soft inittalizo th« controller 



Do WRITE CHARACTERISTICS to chock for Entmndm^ Footuroo SMitch 
If Extondod Footuroo Hordworo SMitch Cloor thon: 

Do Writo Suboyotom Writo Miocollonoouo to Sot Extondod Footuroo. 
Do WRITE CHARACTERISTICS to Mloct rooorvod unit 7 and ootup BUFFER 
Do a Writo Subayatom WRITE NPR to aat tapo diraction out and Loopback 
Do a WRITE NPR to aat loopback and tapa diraction OUT 
Do a WRITE FORMAT to aat IRESV3-->IWSTR • 1 

Do a WRITE FIFO with byta count aqual to 1 and Tapa diraction OUT 
Do a WRITE FORMAT to aat IRESV3»>IWSTR - 0 to load Mrita data latch 
Do a WRITE FORMAT to aat IRESV3— >IWSTR - 1 
Do a WRITE NPR to aat loopback and tapa diraction IN 
Do a WRITE FIFO Mith byta count aqual to 1 and Tapa diraction IN 
to atroba loopback data into FIFO. 

READ FIFO Mith tapa diraction IN to raad data 



END 



Do a 

If Data raad from FIFO NOT* to Data aant Than Print Error 



4457 


055014 

AICK/\« M 

055014 










4458 






4459 


055016 




4460 


055016 


004737 


4461 


055022 


103405 


4462 


055024 


010001 


4463 


055026 






055026 


104455 




055030 


001474 




055032 


003646' 




055034 


011644' 


4464 






4465 


055036 


005037 


4466 


055042 


012704 


4467 


055046 


004737 


4468 


055052 




4469 


055066 


103407 


4470 


055070 


010001 


4471 


055072 




4472 


055072 






055072 


104455 




055074 


001475 




055076 


057763' 




OSSlOO 


011656' 


4473 


055102 


005237 


4474 


055106 






055106 


104406 



4475 
4476 
4477 
4478 
4479 
4480 
4481 
4482 
4483 



I 

51: 



ioi: 



055110 012701 062072' 

055114 032761 000200 000012 

055122 001026 

055124 004737 061722' 

055130 012704 062220' 

055134 010465 000000 

055140 004737 016146' 



12»: 



151: 

i 
I 



BGNSUB I //////////// BEGIN SUBTEST ////////// 

T8.3: 

TRAP CIBSUB 

Writ* to TSSR r«gist«r to soft initializo th« eontrolUr 



JSR 
BCS 
NOV 
ERROF 



PC.SOriNIT 

101 

RO.Rl 

ERRNO. SFIERR . SFIHSG 



tURITE TO TSSR TO SOFT INITIALIZE 
iBR IF SOFT INIT OKAY 
iSAVE CONTENTS OF TS^!) 
i DEVICE FATAL DURING INIT 

TRAP CIEROF 
.UORD 828 
.UGRD SFIERR 
.UORD SFinSG 

Do WRITE CHARACTERISTICS to chMk for Extondad FooturM SMitch 



CLR FATFL6 
MOV •T19PACKET.R4 
JSR PC.URTCHR 
FORCERROR 121 
BCS ISt 
NOV RO.Rl 
NEXT. ERRNO 

ERRDF ERRNO . T19SSR . PKTSSR 



I CLEAR FATAL ERROR FLAG 
iGET THE ADDRESS OF COMNAND PACKET 
I 00 WRITE CHARACTERISTICS CONNANO 

laUFORCE ERROR IF FORCER- 1 
iBR IF CARRY SET CGOOO RETURN) 
tSAVE CONTENTS OF TSSR 



{DEVICE FATAL SSR FAILED TO SET 

TRAP CIERDF 
.WORD 829 
.WORD T19SSR 
WORD PKTSSR 

INC FATFLG tSET FATAL ERROR FLAG 

CKLOOP :LOOP ON ERROR. IF FLAG SET 

TRAP C<CLP1 

If Extondod F«atur«« HardMaro SMitch Claar than: 

Do Writa Subayatam Urita Niacallanaoua to Sat Extandad Faaturaa. 



NOV *T196FR.R1 

BIT *X2.EXTF,XST2(R1) 

BNE 30 « 

JSR PC.T19SEXT 

MOV ♦T19PK2.R4 

NOV R4.TSDB(R5) 

JSR PC.CHKTSSR 



iNESSAGE BUFFER ADDRESS 
I EXTENDED FEATURES SWITCH SET? 
I BR IF YES 

{SETUP PACKET FOR WRITE NISC INVERT 
{GET WRITE SUBSYSTEN CONNAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 



N14 



TSVS - HAROUARE TESTS MACRO MlllS Ol-FEB-84 17:02 
TEST 6: SUBTEST 3: L00P8ACK WRITE STROBE TEST 



4484 


0SS144 






4485 


055160 


103407 




4486 


055162 


010001 




4487 


055164 






4488 


055164 








055164 


104455 






055166 


001476 






055170 


060020' 






055172 


011656' 




4489 


055174 


005237 


002222* 


4490 0SS200 








055200 


104406 




4491 








4492 


055202 


012704 


062050' 


4493 


055206 


004737 


010472' 


4494 


055212 






4495 


055226 


103407 




4496 


055230 


010001 




4497 


055232 






4498 


055232 








055232 


104455 






055234 


001477 






055236 


057763' 






055240 


011656' 




4499 055242 


005237 


002222' 


4500 055246 








055246 


104406 





22 > 



221: 



301: 
i 



FORCERROR 
BCS 30* 
MOV RO.Rl 
NEXT.ERRNO 

ERROF ERRN0.T192SSR.PKTSSR 



INC 

CKLOOP 



FATFLG 



42$: 



50«: 



Do WRITE CHARACTERISTICS to 

MOV *T19PACKET.R4 

JSR PC.URTCHR 

FORCERROR 421 

BCS 501 

MOV RO.Rl 

NEXT.ERRNO 

ERROF ERRN0.T19SSR.PKTSSR 



INC 

CKLOOP 



FATFLC 



4501 
4502 
4503 
4504 
4505 
4506 
4507 
4506 
4509 
4510 
4511 
4512 
4513 
4514 
4515 
4516 
4517 
4516 



4519 
4520 

4521 
4522 
4523 
4524 
4525 



SEQ 182 



tSSOFORCE ERROR IF FORCER >1 
tBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 

i DEVICE FATAL SSR FAILED TO SET 

TRAP CtERDF 
.UORD 830 
.WORD T192SSR 
.WORD PKTSSR 

tSET FATAL ERROR FLAG 

I LOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 

••l«ct r«Mrv«d unit 7 

(GET THE ADDRESS OF COMMAND PACKET 
I DO WRITE CHARACTERISTICS COMMAND 

(SaOFORCE ERROR IF FORCER -1 
iBR IF CARRY SET (GOOD RETURN) 
iSAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 

TRAP OEROF 
.WORD 831 
.WORD T19SSR 
.WORD PKTSSR 

tSET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 



055250 
055254 
055260 
055266 

055272 
055276 
055302 
0S5S06 
055312 
055316 
055322 
055336 
055340 
055342 
055342 
055342 
055344 
055346 
05SSS0 
055352 
055356 
055356 

055360 
055364 
055370 
055374 



012703 
012337 
042737 
010337 

012700 
052700 
004737 
012704 
010465 
004737 

103407 
010001 



002752' 
002312' 

177400 002312' 
002316' 

000100 

000040 

061562' 

062220' 

000000 

016146' 



IN 



I REPEAT FOR ALL TEST PATTERNS 

MOV «TSTBLK.R3 
100$: MOV (R3)».DATA 

SIC ♦tC<377>.DATA 
MOV R3.TSTPTR 
; Do • WRITE NPR to Mt loopback 

MOV «NP.0UT.R0 
BIS «NP.L00P.R0 
JSR PC.T19SNPR 
MOV *T19PK2.R4 
MOV R4.TS0B(R5) 
JSR PC.CHKTSSR 

102$ 



104455 

001500 

060131' 

011656' 

005237 002222' 
104406 

012700 000002 
004737 061702' 
012704 062220' 
010465 000000 



102$: 



1051: 



FORCERROR 
BCS 1051 
MOV RO.Rl 
NEXT.ERRNO 

ERROF ERRN0.T194SSR. PKTSSR 



TST6LK TABLE 

iGET FIRST PATTERN ADDRESS 
iGET A TEST PATTERN 
I DATA IS BYTE 

{SETUP CURRENT TSTBLK POINTER 
and tap* direction OUT 
I SET TAPE DIRECTION OUT 
I SET LOOPBACK 

i SETUP T19PK2 FOR WRITL NPR 
I GET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 

iBSOFORCE ERROR IF FORCER-1 
tBR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 



INC 

CKLOOP 



FATFLG 



Do a WRITE FORMAT to 
MOV «WF. I3RES.ro 
JSR PC,T19WFMT 
MOV *T19PK2.R4 
MOV R4.TSDB(R5) 



{DEVICE FATAL SSR FAILED TO SET 

TRAP CIEROF 
.WORD 832 
.WORD T194SSR 
.WORD PKTSSR 

{SET FATAL ERROR FLAG 
(LOOP ON ERROR. IF FLAG SET 

TRAP C»CLP1 

set IRESV3-->IWSTR - 1 

{IRESV3">IWSTR-1 

(SETUP T9PK2 FOR WRITE FORMAT 

(GET WRITE SUBSYSTEM COMMAND PACKET 

(SET THE PACKET ADDRESS TO EXECUTE 



B15 



TSV5 HARDWARE TESTS MACRO M1115 
TEST 0: SUBTEST 5: L00P8ACK WRITE 



OlFEB-64 I7t02 
STROBE 



TEST 



SEQ 1S5 



4526 0S5400 


004737 


016146' 


4527 055404 






4526 055420 


10S407 




4529 055422 


010001 




4530 055424 






4551 055424 






055424 


104455 




055426 


001501 




055430 


060352' 




055432 


011656' 




4532 055434 


005237 


002222* 


4533 055440 






055440 


104406 




4534 






4535 055442 


012700 


000001 


4536 055446 


012701 


002312' 


4537 055452 


004737 


061626' 


4536 055456 


012704 


062220* 


4539 055462 


010465 


000000 


4540 055466 


004737 


016146' 


4541 055472 






4542 055506 


103407 




4543 055510 


010001 




4544 055512 






4545 055512 






055512 


104455 




055514 


001502 




055516 


060174' 




055520 


011656' 




4546 055522 


005237 


002222* 


4547 055526 






055526 


104406 




4548 






4549 055530 


005000 




4550 055532 


004737 


061702' 


4551 055536 


012704 


062220' 


4552 055542 


010465 


000000 


4553 055546 


004737 


016146' 


4554 055552 




4555 055566 


103407 




4556 055570 


010001 




4557 055572 






4558 055572 






055572 


104455 




055574 


001503 




055576 


060352' 




055600 


011656' 




4559 055602 


005237 


002222' 


4560 055606 






055606 


104406 




4561 






4562 055610 


012700 


000002 


4563 055614 


004737 


061702' 


4564 055620 


012704 


062220' 


4565 055624 


010465 


000000 


4566 055630 


004737 


016146' 


4567 055634 







112* I 



1201: 
I 



1S2I: 



140$: 
I 



1521: 



1601: 
I 



JSR PC.CHKTSSR 
FORCERROR 112* 
BCS 1201 
nOV RO.Rl 
NEXT.ERRNO 

ERROF ERRN0.T198SSR.PKTSSR 



iWAIT rOR SSR TO SET 

iSSOrORCE ERROR IF FORCER -1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSP 



INC 

CKLOOP 



FATFLG 



Do • WRITE FIFO Mith byt* count 

HOV «1.R0 

NOV tOATA.Rl 

JSR PC.T19WFIF 

MOV •T19PK2.R4 

NOV R4.TS0B(R5) 

JSR PC.CHKTSSR 

FORCERROR 1321 

BCS 1401 

NOV RO.Rl 

NEXT.ERRNO 

ERROF ERRND.T195SSR.PKTSSR 



CIERDF 
833 

T19BSSR 
PKTSSR 



C»CLP1 



INC 

CKLOOP 



FATFLG 



Oe • WRITE FORHAT to Mt IRESV3 

CLR RO 

JSR PC.T19MFHT 

NOV •T19PK2.R4 

HOV R4.TS06(R5) 

JSR PC.C»f(TSSR 

FORCERROR 1521 

BCS 1609 

HOV RO.Rl 

NEXT.ERRNO 

ERROF ERRN0.T198SSR. PKTSSR 



I DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

I SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP 

•qual to 1 and Tap* direction OUt 
I WRITE 1 BYTE 
iFIFO WRITE DATA ADDRESS 
I SETUP T19PK2 FOR WRITE FIFO 
iGET WRITE SUBSYSTEM CONNANO PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
I WAIT FOR SSR TO SET 

iBttFORCE ERROR IF FORCER -1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 

lOEVXCE FATAL SSR FAILED TO SET 

TRAP CIERDF 
.WORD 834 
.WORD T195SSR 
.WORD PKTSSR 
I SET FATAL ERROR FLAG ^ 
iLOOP ON ERROR. IF FLAG SET || 

TRAP C9CLP1 

'->IWSTR • 0 
iSET IRESV3-»IWSTR-0 
t SETUP T9PK2 FOR WRITE FORMAT 
iGET WRITE SUBSYSTEM COHNAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
iWAIT FOR SSR TO SET 

tBttFORCE ERROR IF FORCER- 1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



INC 

CKLOOP 



FATFLG 



iDEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

I SET FATAL ERROR FLAG 
tLOOP ON ERROR. IF FLAG SET 

TRAP 



Do • WRITE FORMAT to 
HOV •WF.I3RES.ro 
JSR PC.Tl9»rMT 
MOV •T19PK2.R4 
MOV R4.TS0B(R5) 
JSR PC.CHKTSSR 
FORCERROR 1721 



Mt IRESV3">IWSTR - 1 

iIRESV3**>IWSTR-l 

iSETUP T9PK2 FOR WRITE FORMAT 

iGET WRITE SUBSYSTEM COMMAND PACKET 

(SET THE PACKET ADDRESS TO EXECUTE 

iWAIT FOR SSR TO SET 

iBBDFORCE ERRO» ~ FORCER -l 



CIERDF 
835 

T198SSR 
PKTSSR 



CICLPl 



TSV5 
TEST 



HARDWARE TESTS 
S: SUBTEST S: 



MACRO Ml 
LOOPBACK URI 



456d 
4569 
4570 
4571 



4572 
4575 

4574 
4575 
4576 
4577 
4578 
4579 
4500 
4561 
4562 
4565 
4564 
4565 
4566 



4567 
4568 

4569 
4590 
4591 
4592 
4593 
4594 
4595 
4596 
4597 
4596 
4599 
4600 



4601 
4602 

4605 
4604 
4605 
4606 
4607 
4606 
4609 



0SS650 
055652 
055654 
055654 
055654 
055656 
055660 
055662 
055664 
055670 
055670 



055672 
055674 
055700 
055704 
055710 
055714 
055720 
055754 
055756 
055740 
055740 
055740 
055742 
055744 
055746 
055750 
055754 
055754 

055756 
055762 
055766 
055772 
055776 
056002 
056006 
056022 
056024 
056026 
056026 
056026 
056050 
056052 
056054 
056056 
0:^6042 
056042 

056044 

056050 
056054 
056060 
056064 
056070 



105407 
010001 



104455 
001504 
060552- 
011656' 

005257 002222' 
104406 



005000 

052700 000040 

004757 061562' 

012704 062220' 

010465 000000 

004757 016146* 

105407 
010001 



104455 

001505 

060151' 

011656' 

005257 002222' 



104406 

012700 
012701 
004757 
012704 
010465 
004757 

105407 
010001 



000001 

002512' 

061626' 

062220* 

000000 

016146' 



104455 

001506 

060174* 

011656' 

005257 002222* 
104406 

012700 000001 
004757 061606* 
012704 062220' 
010465 000000 
004757 016146' 



C15 



SEQ 184 



1721: 



1601: 



1821: 



190S: 
t 



202»: 



210»: 
I 



8CS ieo> 

HOV RO.Rl 
NEXT.ERRNO 

ERROT ERRN0.T198SSR.PKTSSR 



INC PATFLC 
CKLOOP 



I BR IF CARRr SET (GOOD RETURN) 
I SAVE CONTENTS OT TSSR 

lOEVlCE FATAL SSR FAILED TQ SET 

TRAP 
.UORO 
.UORO 
.UOMO 

I SET FATAL ERROR FLAG 
iLOOP ON ERROR, IF FLAG SET 

TRAP 



CIEROF 
856 

T198SSR 
PKTSSP 



CICLPI 



Do a WRITE NPR to Mt loopbMk and tap* 

CLR RO 

BIS CNP.LOOP.RO 
JSR PC.T19SNPR 
nOV #T19PK2.R4 
MOV R4.TS0B(R5) 
JSR PC.CHKTSSR 
FORCERROR 1821 
BCS 190t 
HOV RO.Rl 
NEXT.ERRNO 

ERROF ERRN0.T194SSR.PKTSSR 



and tap* diraction IN 
tCLR M>.0UT TO SET TAPE DIRECTION IN 
tSET LOOPBACK 

t SETUP T19PK2 FOR WRITE NPR 
iGET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
I WAIT FOR SSR TO SET 

tSSDFORCE ERROR IF FORCER -1 
iBR IF CARRY SET (GOOD RETURN) 
(SAVE CONTENTS OF TSSR 



INC 

CKLOOP 

Do I 

MOV 
MOV 
JSR 
MOV 
MOV 
JSR 



•DEVICE FATAL SSR FAILED TO SET 

TRAP CtERDF 
.WORD 857 
.WORD T194SSR 
WORD PKTSSR 

FATFLG tSET FATAL ERROR FLAG 

iLOOP ON ERROR. IF FLAG SET 

TRAP CtCLPl 

WRITE FIFO Mith byta count aqual to 1 and Tapa d! paction 



•l.RO 
40ATA.R1 

PC.T19WFIF 
#T19PK2.R4 
R4.TS06(R5) 
PC.CH(TSSR 

202» 



FORCERROR 
BCS 2101 
MOV RO.Rl 
NEXT.ERRNO 

ERRDF ERRN0.T195SSR.PKTSSR 



IN 

tWRITE 1 BYTE 
iFIFO WRITE DATA ADDRESS 
t SETUP T19PK2 FOR WRITE FIFO 
I GET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
tWAIT FOR SSR TO SET 

iBSDFORCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



INC 

CKLOOP 



FATFLG 



Do a READ FIFO Mtth 1 
MOV n.RO 
JSR PC.T19RFIF 
MOV ♦T19PK2,R4 
MOV R4.TSDB(R5) 
JSR PC.CHKTSSR 
FORCERROR 2221 



lOEVICE FATAL SSR FAILED TO SET 

TRAP CIERDF 
.WORD 858 
.WORD T195SSR 
.WORD PKTSSR 

I SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP CtCLPl 

diraction IN to rmm6 data 

I SET READ BYTE COUNT 

t SETUP T19PK2 FOR READ FIFO 

iGET WRITE SUBSYSTEM COMMAND PACKET 

I SET THE PACKET ADDRESS TO EXECUTE 

•WAIT FOR SSR TO SET 

:8BDF0RCE ERROR IF FORCER-1 



TSV5 
TEST 



HARDWARE TESTS MACRO «1113 .fiJLEEB^M 17:02 
S: SUBTEST S: LOOPBACK URtt^ STftOeF TEST 



D15 



SEQ 185 



4610 056104 


105407 




BCS 


2301 


iBR IF CARRY SET (GOOD RETURN) 




4611 056106 


010001 




MOV 


RO.Rl 


iSAVE CONTENTS OF TSSR 




461 056110 






NEXT.ERRNO 






4613 056110 




222): 


ERROF 


ERRNO . T 196SSR . PK T SSR 


1 DEVICE FATAL SSR FAILED TO SET 


056110 


104455 








TRAP 


CIEROF 


056112 


001507 








.WORD 


639 


056114 


060240' 








.WORD 


T196SSR 


056116 


011656' 








.WORD 


PKTSSR 


4614 056120 


005237 


002222' 


INC 


FATFLG 


iSET FATAL ERROR FLAG 




4615 056124 




2301 : 


CKLOOP 




iLOOP ON ERROR. IF FLAG SET 




056124 


104406 








TRAP 


CICLPl 


4616 




1 


If Oat* 


r«»d from FIFO NOT* to Data Mnt Than Print Error 




4617 056126 


004737 


061760' 


JSR 


PC.T19SETEXP 


iSET WORDS 0-7 EXPD-RECV (NOT 


TESTING) 


4610 056132 


012701 


057622' 


HOV 


♦T19EXSTA.R1 


iGET EXPECTED READ STATUS 




4619 056136 


012702 


062112 


nov 


«T196FSTA.R2 


iGET RECV READ STATUS 




4620 056142 


013711 


002912' 


HOV 


OATA.(Rl) 


iSET EXPO WORD M - DATA 




4621 056146 


016261 


000002 000002 


HOV 


2(R2).2(R1) 


iSET EXPO WORD 49 - RECV (NOT 


TESTING) 


4622 056154 


005000 




CLR 


RO 


IHIGM RECV ADDRESS FOR CKHSG2 




4623 056156 


012701 


0620*2 


HOV 


♦T196FR.R1 


iLOW RECV ADDRESS FQR CKHSG2 




4624 056162 


012702 


057602 


HOV 


#T19EXP.R2 


lEXPO ADDRESS 




4625 056166 


012703 


000022 


HOV 


♦18..RS 


iNUHBER OF BYTES TO COHPARE 




4626 056172 


004 7S7 


011310' 


JSR 


PC.CKnSG2 


tEXPD EQUAL RECV? 




4627 056176 






FORCERROR 242t.N0TSSR 


i860 










BCS 


2501 


iBR IF YES 




4629 056210 






NEXT.ERRNO 






46S0 056210 




242t: 


ERRHRO 


ERRNO . T 19USTR . HSGSUB 


{REPORT ERROR 




056210 


104456 








TRAP 


C«ER»«0 


056212 


001510 








.WORD 


640 


056214 


06 1263' 








.WORD 


T19USTR 


056216 


013552' 








.WORD 


MSGSUB 


46S1 056220 




2509: 


CKLOOP 




tLOOP ON ERROR. IF FLAG SET 




056220 


104406 








TRAP 


C»CLP1 



4632 
4633 
4634 
4635 
4636 
4637 
4638 
4639 
4640 
4641 



4642 
4643 
4644 
4645 
4646 
4647 
4648 
4649 
4650 
4651 
4652 
4653 
4654 



056222 
056232 
056236 
056242 
056244 
056250 

056250 
056250 
056250 

056252 
056256 
056260 
056264 



013703 002316' 

020327 00S062' 
103002 

000137 055254* 



104403 

005737 002222' 
001402 

004737 017014' 



255t: 



FORCEXIT 255< 
HOV TSTPTR.RS 
CHP R3.4TBLEN0 
BHIS 2S5« 
JHP 100» 



ENDSUB 



|88D 

•RESTORE CURRENT TSTBLK POINTER 
I END OF TSTBLK? 
tBR IF YES 

iDO ANOTHER TSTBLK PATTERN 



I //////////// END SUBTEST ////////// 
L10071: 

TRAP CtESUB 



260t! 



TST 
BEO 
JSR 



FATFLG 
260 < 

PC.CKDROP 



I ANY FATAL ERRORS ? 

•BRANCH IF NOT 

{TRY TO DROP THE UNIT 



.SBTTL TEST 8: SUBTEST 4 LOOPBACK READ STROBE TEST 



TEST 8: SUBTEST 4: 
SUBTEST DESCRIPTION: 



E15 



TSV5 - HAROUARE TESTS MACRO M1115 01 -FEB 64 17;02 
TEST 6: SUBTEST 4 LOOPBACK READ STROBE TEST 



SEQ 166 



4655 
4656 
4657 
4658 
4659 
4660 
4661 
4662 
4665 
4664 
4665 
4666 
4667 
4666 
4669 
4670 
4671 
4672 
4673 
4674 
4675 
4676 
4677 
4678 
4679 
4680 
4681 
4682 



Thi« subtest v«riri«« th« R«ad Strob* loopbsck path 
can atrob* th« data from tha Data li naa to tha flfO. 
Tha signal IRESV4 drivae IRSTR (raad stroba) to MPlta 
from tha data linaa to tha FIFO. 

TEST STEPS: 

REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
BEGIN 

Urita to TSSR ragiatar to soft initializa tha controllar 

Do URITE CHARACTERISTICS to chock for ERtartdad Faaturaa Switch 

If Extaf^dad Faoturas Harditara Switch Claar than: 

Do Urita Suboyotam Urita Hiaeallanaoua to Sat Extandad Faaturas. 
Do URITE CHARACTERISTICS to salact rm9mrv»d unit 



Do 
Do 
Do 
Do 
Do 
Do 
Do 
Do 



Urita Subayota* URITE NPR to oot 
URITE NPR to oot loepbaek and tapa direction OUT 



7 and satup BUFFER 
direction out and Loepback 



direction OUT 
out Mrite latch 



END 



URITE FORMAT to set IRESV4— >IRSTR - 1 
URITE FIFO with byte count equal to 1 and Ti 
READ FIFO Kith tape direction OUT to load ti 
URITE NPR to oet loopbaek and tape direction IN 
URITE FORHAT to oet IRESV4— >IRSTR - 0 to Mr I te Loop data to FIFO 
URITE FORHAT to set IRESV4"> IRSTR - 1 
(to strobe loopbaek data into FIFO.) 
Do a READ FIFO Mith tape direction IN te read data 
If Data read from FIFO NOT- to Data sent Then Print Error 



4683 


056264 








056264 






4684 


056264 


104402 




4685 


056266 






4686 


056266 


004737 


015604' 


4687 


056272 


103405 




4688 


056274 


010001 




4689 


056276 








056276 


104455 






056300 


001510 






056302 


003646' 






056304 


011644* 




4690 








4691 


056306 


005037 


002222' 


4692 


056312 


012704 


062050* 


4693 


056316 


004737 


010472' 


4694 


056322 






4695 


056336 


103407 




4696 


056340 


010001 




4697 


056342 






4698 


056342 








056342 


104455 






056344 


001511 






056346 


057763* 






056350 


011656' 




4699 


056352 


005237 


002222' 


4700 


056356 








056356 


104406 





I 

5«: 



BGNSUB I //////////// BEGIN SUBTEST ////////// 

T8.4: 

TRAP CYB^JB 

Urite to TSSR register to aoft initiali<e the controller 



101 i 



12»: 



151: 



JSR PC.SOFINIT 

BCS 101 

NOV RO.Rl 

ERROF ERRNO.SFIERR.SFIHSG 



Do URITE CHARACTERISTICS to 

aR FATFL6 

HOV •T19PACKET.R4 

JSR PC.URTCHR 

FORCERROR 12« 

BCS 151 

HOV RO.Rl 

NEXT.ERRNO 

ERROF ERRN0.T19SSR.PKTSSR 



tURITE TO TSSR TO SOFT INITIALIZE 

tBR IF SOFT INIT OKAY 

tSAVE CONTENTS OF TSSR 

iDEVICE FATAL DURING INIT 

TRAP C9ER0F 
.UORO 840 
.UORO SFIERR 
.UORO SFinsG 
check for Extended Features Switch 

{CLEAR FATAL ERROR FLAG 

iCET THE ADDRESS OF COHHAND PACKET 

tOO URITE CHARACTERISTICS COTtlAND 

tSBOFORCE ERROR IF FORCER- 1 

tBR IF CARRY SET (GOOD RETURN) 

I SAVE CONTENTS OF TSSR 



INC 

CKLOOP 



FATFLG 



I DEVICE FATAL SSR FAILED TO SET 

TRAP 
.UORO 
.WORD 
.WORD 

I SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP 



C»EROF 
641 

T19SSR 
PKTSSR 



CICLPI 



F15 



TSVS - HARDIMRE 
TEST a 



TESTS MACRO MlllS 01 rEB-S4 17:02 
SUBTEST 4 LOOPBACK READ STROBE TEST 



4701 
4702 
4703 
4704 
4705 
4706 
4707 
4706 
4709 
4710 
4711 
4712 
4715 
4714 



4715 
4716 

4717 
4718 
4719 
4720 
4721 
4722 
4725 
4724 



4725 
4726 

4727 
4728 
4729 
4730 
4751 
4752 
4755 
4754 
4755 
4756 
4757 
4758 
4759 
4740 
4741 
4742 
4745 
4744 



056360 
056564 
056572 
056574 
056400 
056404 
056410 
056414 
056450 
056452 
056454 
056454 
056434 
056456 
056440 
056442 
056444 
056450 
056450 

056452 
056456 
056462 
056476 
056500 
056502 
056502 
056502 
056504 
056506 
056510 
056512 
056516 
056516 



012701 062072' 

032761 000200 000012 
001026 

004737 061722' 

012704 062220' 

010465 000000 

004757 016146' 

105407 
010001 



104455 

001512 

060020' 

011656' 

005257 002222' 
104406 

012704 062050' 
004757 010472' 

103407 
010001 



104455 

001513 

057765' 

011656' 

005257 002222' 
104406 



22t: 



50t: 
I 



If Extended r««tur«» HardMar* 

Do Writ* SubsyatMt Writ* H 
nOV •T196FR,R1 
BIT #X2.EXTr.XST2(Rl) 
BNE 50 « 
JSR PC.T19SEXT 
nOV ♦T19PK2.R4 
MOV R4.TS0B(RS) 
JSR PC.CHKTSSR 
FORCERROR 22* 
BCS 501 
HOV RO.Rl 
NEXT.ERRNO 

ERROF ERRNO . T 192SSR , PK TSSR 



INC 

CKLOOP 



FATFLG 



429: 



SO«i 



Oo WRITE CHARACTERISTICS to 

MOV ♦T19PACKET,R4 

JSR PC.URTCHR 

FORCERROR 42 « 

BCS SOI 

MOV RO.Rl 

NEXT.ERRNO 

ERROF ERRNO. T19SSR.PKTSSR 



INC 

CKLOOP 



FATFLG 



056520 


012705 


002752' 


056524 


012557 


002312' 


056550 


042757 


177400 002312' 


056556 


010557 


002316' 


056542 


012700 


000100 


056546 


052700 


000040 


056552 


004757 


061562' 


056556 


012704 


062220* 


056562 


010465 


000000 


056566 


004737 


016146' 


056572 






056606 


103407 




056610 


010001 




056612 






056612 






056612 


104455 




056614 


001514 




056616 


060131' 





t REPEAT FOR 
MOV 

loot : MOV 
BIC 
MOV 
I Oo • 

MOV 
BIS 
JSR 
MOV 
MOV 
JSR 



ALL TEST PATTERNS 
#TSTBLK.R5 
(R5)».DATA 
♦tC<577>,0ATA 
R5.TSTPTR 



IN 



WRITE NPR to Mt loopbMk 
«NP.OUT.RO 

•np.loop.ro 

PC.T19SNPR 
♦T19PK2,R4 
R4.TS0B(RS} 
PC.CHKTSSR 

1021 



102t: 



FORCERROR 
BCS 1051 
MOV RO.Rl 
NEXT.ERRNO 
ERROF ERRNO. T194SSR.PKTSSR 



SEQ 1S7 



SMitch Cloar than: 
iacallanaoua to Sat Extandad Faaturaa. 

I MESSAGE BUFFER ADDRESS 
{EXTENDED FEATURES SWITCH SET? 
I BR IF YES 

I SETUP PACKET FOR WRITE MISC INVERT 
iGET WRITE SUBSYSTEM COMMAND PACKET 
J SET THE PACKET ADDRESS TO EXECUTE 
I WAIT FOR SSR TO SET 

iBBOFORCE ERROR IF FORCER- 1 
iBR IF CARRY SET (GOOD RETURN) 
(SAVE CONTENTS OF TSSR 

I DEVICE FATAL SSR FAILED TO SET 

TRAP CIEROr 
.WORD 642 
.WORD T192SSR 
.WORD PKTSSR 

I SET FATAL ERROR FLAG 
tLOOP ON ERROR. IF FLAG SET 

TRAP CtCLPl 

aalact r—r\tmd unit 7 

iGLT THE ADDRESS OF COMMAM) PACKET 
iDO WRITE CHARACTERISTICS COMMAND 

I0SDFORCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOD RETURN) 
tSAVE CONTENTS OF TSSR 

•DEVICE FATAL SSR FAILED TO SET 

TRAP CtEROF 
.UORO 645 
.WORD T19SSR 
.WORD PKTSSR 

tSET FATAL ERROR FLAG 
tLOOP ON ERROR. IF FLAG SET 

TRAP CtCLPl 

TST8LK TABLE 

iGET FIRST PATTERN ADDRESS 
iGET A TEST PATTERN 
tOATA IS BYTE 

I SETUP CURRENT TSTBLK POINTER 

tapa d! Taction OUT 
iSET TAPE DIRECTION OUT 
(SET LOOPBACK 

{SETUP T19PK2 FOR WRITE NPR 
iGET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
tUAIT FOR SSR TO SET 

tSSDFORCE ERROR IF FORCER-1 
tBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



(DEVICE FATAL SSR 



FAILED TO SET 

TRAP CtEROF 
.WORD 844 
.WORD T 194 SSR 



G15 



TSV5 
TEST 



HAROUAPE 



_ TESTS MACRO HI 115 01 -FEB 
SUBTEST 4 LOOPBACK READ STROBE TEST 



1051 ! 
i 



64 17:02 





056620 


011656' 




4 745 


056622 


005237 


002222* 


4746 


056626 








056626 


104406 




4747 








4740 


056630 


012700 


000001 


4749 


056634 


004737 


061702' 


4750 


056640 


012704 


062220' 


4751 


056644 


010465 


000000 


4752 


056650 


004737 


016146' 


4753 


056654 






4754 


056670 


103407 




4755 


056672 


010001 




4756 


056674 






4757 


056674 








056674 


104455 






056676 


001515 






056700 


060352' 






056702 


011656' 




4758 


056704 


005237 


002222' 


4759 


056710 








056710 


104406 




4760 








4761 


056712 


012700 


000001 


4762 


056716 


012701 


002312' 


4763 


056722 


004737 


061626' 


4764 


056726 


012704 


062220' 


4765 


056732 


010465 


000000 


4766 


056736 


004737 


016146' 


4767 


056742 






4766 


056756 


103407 




4769 


056760 


010001 




4770 


056762 






4771 


056762 








056762 


104455 






056764 


001516 






056766 


060174' 






056770 


011656' 




4772 


056772 


005237 


002222' 


4773 


056776 








056776 


104406 




4774 








4775 


057000 


012700 


000001 


4776 


057004 


004737 


061606' 


4777 


057010 


012704 


062220' 


4778 


057014 


010465 


000000 


4779 


057020 


004737 


016146' 


4780 


057024 






4781 


057040 


103407 




4762 


057042 


010001 




4783 


057044 






4784 


057044 








057044 


104455 






057046 


001517 






057050 


060240' 






057O55» 


011656' 




4785 


057054 


005237 


002222* 



112»: 



120* ! 
I 



132t! 



140t: 

t 



152»: 



INC 

CKLOOP 



FATFLG 



Do • WRITE FORMAT to Mt 
MOV •VF.I4RES.ro 
JSR PC.T19MFMT 
MOV 4T19PK2.R4 
MOV R4.TSDB(R5) 
JSR PC.CHKTSSR 
FORCERROR 112» 
BCS 120$ 
MOV RO.Rl 
NEXT.ERRNO 
ERRDF ERRN0.T198SSR.PKTSSR 



SCO 188 



.UORO PKTSSft 

•SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP C»CLP1 

IRESV4«*>IRSTR - 1 

tIRESV4-->IRSTR*l 
I SETUP T9PK2 FOR WRITE FORMAT 
(GET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
iWAIT FOR SSR TO SET 

iSSOFORCE ERROR IF FORCER -l 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



INC 

CKLOOP 



FATFLG 



Do • WRITE FIFO Mith byto count 

NOV «1.R0 

NOV 4DATA.R1 

JSR PC.T19UFIF 

MOV •T19PK2.R4 

MOV R4.TS0B(R5) 

JSR PC.CHKTSSR 

FORCERROR 1321 

BCS 140« 

MOV RO.Rl 

NEXT.ERRNO 

ERRDF ERRN0.T195SSR.PKTSSR 



(DEVICE FATAL SSR FAILED TO SET 

TRAP C«EROF 
.WORD 845 
.WORD T198SSR 
.WORD PKTSSR 

(SET FATAL ERROR FLAG 
(LOOP ON ERROR. IF FLAG SET 

TRAP C9CLP1 
•quol to 1 and Tap* diraction OUT 
(WRITE 1 BYTE 
(FIFO WRITE DATA ADDRESS 
(SETUP T19PK2 FOR WRITE FIFO 
(GET WRITE SUBSYSTEM COrtMND PACKET 
(SET THE PACKET ADDRESS TO EXECUTE 
(WAIT FOR SSR TO SET 

(BSOFORCE ERROR IF FORCER-1 
(BR IF CARRY SET (GOOD RETURN) 
(SAVE CONTENTS OF TSSR 



INC 

CKLOOP 



FATFLG 



Do a READ FIFO Mith t 
MOV 41. RO 
JSR PC.T19RFIF 
MOV •T19PK2.P4 
MOV R4.TS0B(R5) 
JSR PC.CHKTSSR 
FORCERROR 1521 
BCS 1601 
MOV RO.Rl 
NEXT.ERRNO 
ERRDF ERRN0.T196SSR. PKTSSR 



(DEVICE FATAL SSR FAILED TO SET 

TRAP CtEROF 
.WORD 846 
.WORD T195SSR 
.WORD PKTSSR 

(SET FATAL ERROR FLAG 
(LOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 
apa diraction OUT to load tap* out MrSta latch 
(SET READ BYTE COUNT 
(SETUP T19PK2 FOR READ FIFO 
(GET WRITE SUBSYSTEM COmAND PACKET 
tSET THE PACKET ADDRESS TO EXECUTE 
(WAIT FOR SSR TO SET 

(BSOFORCE ERROR IF FORCER-1 
(BR IF CARRY SET (GXD RETURN) 
(SAVE CONTENTS OF TSSR 



INC 



FATFLG 



(DEVICE FATAL SSR FAILED TO SET 

TRAP CIEROF 
.WORD 847 
.WORD T196SSR 
.WORD PKTSSR 

(SET FATAL ERROR FLAG 



TSV5 
TEST 



HARDWARE TESTS MACRO nillS 01-FEB-a4 17:02 
): SUBTEST 4 LOOPBACK READ STROBE TEST 



Hi5 



SEQ 169 



4 786 


057060 
057060 


104406 




4787 








4788 


057062 


005000 




4789 


057064 


052700 


000040 


4790 


057070 


004737 


061562' 


4791 


057074 


012704 


062220' 


4792 


057100 


010465 


000000 


4793 


057104 


004737 


016146' 


4794 


057110 






4795 


057124 


103407 




4796 


057126 


010001 




4797 


057130 






4798 


057130 
057130 


104455 






057132 


001520 
060131' 






057134 






057136 


011656' 




4799 


057140 


005237 


002222' 


4600 


057144 

MM 

057144 


104406 




4601 








4602 


057146 


005000 




4603 


057150 


004737 


061702' 


4804 


057154 


012704 


062220' 


4605 


057160 


010465 


000000 


4606 


057164 


004737 


016146' 


4807 


057170 






4808 


057204 


103407 




4809 


057206 


010001 




4810 


057210 






4811 


057210 
057210 
057212 
057214 
057216 


104455 

001521 

060352' 

011656' 




4812 


057220 


005237 


002222' 


4813 


057224 
057224 


104406 




4814 








4615 


057226 


012700 


000001 


4616 


057232 


004737 


061702' 


4617 


057236 


012704 


062220' 


4616 


057242 


010465 


000000 


4619 


057246 


004737 


016146' 


4820 


057252 




4821 


057266 


103407 




4822 


057270 


010001 






Oj 9d f2 






4824 


057272 
057272 
057274 
057276 
057300 


104455 

001522 

060352' 

011656' 




4825 


057302 


005237 


002222' 


4826 


057306 
057306 


104406 





1601: 
t 



1621: 



1901: 
I 



202 »i 



2101: 
i 



222$: 



230* : 



CKLOOP 

Do a WRITE NPR to aat loopback 

CLR RO 
BIS «NP.LO0P.RO 
JSR PC,T19SNPR 
MOV •T19PK2.R4 
MOV R4.TSDBCR5) 
JSR PC.CMKTSSR 
rORCERROR 1621 
BCS 190 t 
MOV RO.Rl 
NEXT.ERRNO 

ERRDF ERRNO . T194SSR . PKTSSR 



I LOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 

and tapa diraction IN 
I CLR NP.OUT TO SET TAPE C/RECTION IN 
I SET LOOPBACK 

I SETUP T19PK2 FOR WRITE NPR 
iGET WRITE SUBSYSTEM COMMAND PACKET 
I SET TME PACKET ADDRESS TO EXECUTE 
I WAIT FOR SSR TO SET 

tSSDFORCE ERROR IF FORCER-l 
iBR IF CARRY SET (GOOD RETURN) 
iSAVE CONTENTS OF TSSR 

I DEVICE FATAL SSR FAILED TO SET 

TRAP CtEROF 



INC 

CKLOOP 



FATFLG 



I SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG 



Do a WRITE FORMAT 
CLR RO 
JSR PC.T19WFMT 
MOV •T19PK2.R4 
MOV R4.TSD6(R5) 
JSR PC.CHKTSSR 
FORCERROR 202 t 

BCS 2101 
MOV RO.Rl 
NEXT.ERRNO 

ERROF ERRNO. T196SSR. PKTSSR 



.WORD 
.WORD 
.WORD 

SET 
TRAP 



646 

T194SSR 
PKTSSR 



CICLPl 



to aat IRESV4-->IRSTR - 0 

jSET IRESV4-->IRSTR-0 
jSETUP T9PK2 FOR WRITE FORMAT 
iGET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
I WAIT FOR SSR TO SET 

iBSOFORCE ERROR IF FORCER-l 
I BR IF CARRY SET CGOOO RETURN) 
I SAVE CONTENTS OF TSSR 



INC 

CKLOOP 



FATFLG 



Do a WRITE FORMAT to aat 
MOV MF.I4RES.ro 
JSR PC.T19UFNT 
MOV #T19PK2.R4 
MOV R4.TSDB(R5) 
JSR PC.CMKTSSR 
FORCERROR 2221 
BCS 2301 
MOV RO.Rl 
NEXT.ERRNO 
ERROF ERRNO. T196SSR. PKTSSR 



jDEVlCE FATAL SSR FAILED TO SET 

TRAP CIERDF 
.WORD 649 
.WORD T196SSR 
.WORD PKTSSR 

iSET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP C9CLP1 

IRESV4>«>IRSTR - 1 

jIRESVA-->IRSTR-l 
I SETUP T9PK2 FOR WRITE FORMAT 
iGET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
(WAIT FOR SSR TO SET 

iSaOFORCE ERROR IF FORCER-l 
tBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



INC 

CKLOOP 



FATFLG 



{DEVICE FATAL SSR FAILED TO SET 

TRAP CIERDF 
.WORD 650 
.WORD T196SSR 
.WORD PKTSSR 

jSET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 



115 



TSVS - HAftOUARE TESTS MACRO Ml 113 01 -FEB -04 
TEST 6: SUBTEST 4 L00P6ACK REAC STROBE TEST 

4«27 



17:02 



Do • READ FIFO Mith tap* cCract 



482« 


057310 


012700 


000001 




HOV 


n.Ro 


4629 


057314 


004737 


061606' 




JSR 


PC,T19RFIF 


4830 


057520 


012704 


062220* 




HOV 


♦T19PK2,R4 


4631 


057324 


010465 


000000 




MOV 


R4.TS0B(R5) 


4032 


057330 


0O4737 


016146' 




JSR 


PC.CMKTSSR 


4633 


057334 








FORCERROR 262 > 


4634 


057350 


103407 






BCS 


2901 


4835 


057352 


010001 






MOV 


RO.Rl 


4036 


057354 








NEXT.ERRNO 


A A V 

4837 


057354 
057354 
057356 
057360 
057362 


104455 

001523 
06024U 
011656 




2829 : 


CNNUr 




A a V A 

4838 


057364 


00523 7 


w22c2 




INC 


FATFLG 


4839 


057370 
057370 


10440O 




i90i J 


CKLOOP 




4840 








1 


IF Data 


raad from FIFO NOT- to 


4841 


057372 


004 73/ 


Od17oO 




JSR 


PC.T19SETEXP 


4842 


057376 


012701 


05 focc 




MOV 


«T19EXSTA.R1 


4843 


057402 


012702 


062112 




MOV 


♦T19BFSTA,R2 


4844 


057406 


019711 


00^312 




MOV 


DATA. CRD 


4845 


057412 


016261 


000002 000002 




MOV 


2CR2).2(R1) 


4846 


057420 


005000 






CLR 


RO 


4847 


057422 


012701 


062072* 




MOV 


♦T19BrR.Rl 


4848 


057426 


012702 


057602' 




MOV 


•T19EXP.R2 


4849 


v% 

057432 


012703 


000022 




MOV 


M. ,n 


4850 


057436 


004737 


011310' 




JSR 


PC.CKMSG2 












FORCERROR 502 1 . NOTSSR 


4652 


057452 


103404 






BCS 




4853 


057454 








NEXT.ERRNO 


4854 


057454 
057*54 
057456 
057460 
057462 


104456 
001524 
061370' 
01SSS2' 




3021: 


ERRHRD 


ERRNO . T 19RSTR . MSGSUB 


4855 


057464 
057464 


104406 




3101: 


CKLOOP 





4856 
4857 
4858 
4859 
4860 
4861 
4862 
4863 
4864 
4865 



4866 
4867 
4868 
4869 
4670 
4871 



057466 
057476 
057502 
057506 
057510 
057514 

057514 
057514 
057514 

057516 
057522 
057524 
057530 



013703 002316' 

020327 003062' 
103002 

000137 056524' 



104403 

005737 002222' 
001402 

004737 017014' 



3551 i 



FORCEXIT 3551 
MOV TSTPTR.R3 
CMP R3.4T6LEND 
BHIS 355 t 
JMP 1001 



ENDSUB 



SEQ 190 



ion IN to road data 

I SET READ BYTE COUNT 

I SETUP T19PK2 FOR READ FIFO 

tGET WRITE SUBSYSTEM COMMAND PACKET 

I SET THE PACKET ADDRESS TO EXECUTE 

I WAIT FOR SSR TO SET 

tSflOFORCE ERROR IF FORCER -1 
iBR IF CARRY SET (GOOD RETURN) 
(SAVE CONTENTS OF TSSR 

•DEVICE FATAL SSR FAILED TO SET 

TRAP CtEROF 
.WORD 851 
.UORO T196SSR 
.UORO PKTSSR 

tSET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP C»CLPl 
Data aant Thon Print Error 
iSET WORDS 0-7 EXPD-RECV (NOT TESTING) 
I GET EXPECTED READ STATUS 
tGET RECV READ STATUS 
I SET EXPO UORO #6 • DATA 
I SET EXPO UORO «9 - RECV (NOT TESTING) 
iHZGH RECV ADDRESS FOR CKMSG2 
iLOU RECV ADDRESS FOR CKMSG2 
tEXPO ADDRESS 

{NUMBER OF BYTES TO COMPARE 

tEXPO EQUAL RECV? 

|8B0 

iBR IF YES 
(REPORT ERROR 

TRAP CIERHRD 
.UORO 652 
.WORD T19RSTR 
.WORD MSGSue 
iLOOP ON ERROR. IF FLAG SET 

TRAP CSCLPl 



iSOO 

(RESTORE CURRENT TSTBLK POINTER 
I END OF TSTBLK? 
I BR IF YES 

I DO ANOTHER TSTBLK PATTERN 



j//////////// END SUBTEST ////////// 
L 10072: 

TRAP C<ESUB 



S60«: 



TST 
BEQ 
JSR 



FATFLG 
S60t 

PC.CKDROP 



{ANY FATAL ERRORS ? 

I BRANCH IF NOT 

{TRY TO DROP THE UNIT 



J15 

TSVS - HAROUARE TESTS MACRO H1113 01-FEB-S4 17:02 SEQ 191 

TEST 8: SUBTEST 4 LOOPBACK READ STROBE TEST 







CAl 1 


TCT 


\ff0ffff0ff c/(x 1 icbi ////////// 




1 t\AA 






TRAP CtcXIT 










WORD L10066- . 


( d 










•o 










AA7K 




1 LOCAL STORAGE 


FOR THIS TEST 




HO » O 




t - 






HO f ' 










HOrO vD r DOH 


IWW>A 


T19PREV: 


.WORD 0 


lORlVE SIGNAL 1-0 TRANSITION FLAG 


AA7Q 

HO » if 




1 ♦ 






Aim/) 




t LOOPBACK DRIVE SIGNAL TABLE 




AMI 

HOOl 




t THIS TABLE IS 


USED BY T19CNVT 


TO SETUP 


HCO^ 




1 A DRIVE PATTERN FROM THE TEST 


DATA INPUT PATTERN. 


HOOO 










AtiAA 




! URTTE CONTROL 


SIGNALS ARE OF FORH UC.XXX 


A MS 
*too^ 




• URTTE FQPHAT 


SIGNALS ARE OF FORH UF.XXXX 


AMI^ 

HOOO 










AM 7 AS7SVk 








tURTTF rnMTRm ARTWF ^^THMAl Q 

1 vmx 1 b 1 W1XVC 9XlJfwH-9 


AMA AS7SV; 


wvwx 




WW • xw 


iTGn«*>TFPT nATA<0> 


AMQ OS7SAO 








iTFFN»a>TFBY AATA<1> 


AAM OS7^^ 






» xmw 




AMI OS7SAA 








iIRFU«fl>TDRY DATA<S> 


AM^ OS7SAI^ 






UF TFRASF*dtt 


iTFAD»«>TL0P nATA<A> 


AMS M7S^ 


OOOOAO 




ur 11 TAD 


1 TTA01««>IANL DATA<^> 


AA4A OS7SS9 


MAt An 
wvx w 




ur TATAD 


1 TTADAa«>TOnY AATA<A> 




AAAdAA 




yr TFAA 


1 TFRAQF««>TSPPFn AATA<7> 




AAA AAA 




UF TFATTaP^ 


t TPATT • ■ > TMPa AAT Atf A> 


AM7 AS7SJU) 


A1 AAAA 




UF.IUFn*256. 


•TurMa«>TFMr AATA<Q> 




A3AAAA 




UF.IR£V*2S6. 


iTR^V»«>TrFQ DATA<1A> 


^O^y» V^f^OH 


AAAAAA 




UF.iyRT*256. 


iTURT«a>TTDFMT 0ATA<11> 




1 AAAAA 




UF.IHISP*2S6. 


iIHTV**>TFOT nATA<lP> 


AMI OS7S70 


AAAAAA 
WWW 




.UORD 0 


iTRfSVP f LMUSEn)AATA<lS> 




AAAAAA 
WWUU 




.UOR^ 0 


iIRESVl ( UNUSED )DATA< 14 > 


AQOX OS7S7A 


AAAAAA 




.UORO 0 


tPARERR ( UNTESTED )0ATA<15> 


4904 














T19nSK: 




tNASK OF UNTESTED BITS IN READ STATUS BYTES 


4906 








lUNTESTED BITS ARE SET TO 1 


4907 0^7S7A 


X77 

Off 


.BYTE 


tc<ooo> 


tBYTE 0 HASK 


490A 0S7S77 


AX7 


.BYTE 


tC<340> 


iBYTE 1 HASK (PARERR.IRESV2.IRESV1) 


4909 097600 


SM 


• BYTE 


tC<017> 


iBYTE 2 CTIHER A.TIHER B.UN0EFINED<1:0> ) 


4910 0^7M1 


AAA 
wv 


.BYTE 


0 


tHAKE IT EVEN 


4911 








491P OS7AAP 




T19EXP: 




t BEGIN EXPECTED DATA BUFFER 


49 IS 097 AOP 


AAAAAA 
www 


.UORD 


0 


tHESSAGE TYPE 


4914 0S7MA 


AAAAAA 
www 


.UGRO 


0 


iDATA FIELD LENGTH 


4915 057M6 


AAAAAA 


.WORD 


0 


iRBPCR 


4916 0S7610 


OOOAAO 
www 


.UORD 


0 


iXSTO 


4917 05761P 


AAAAAA 
www 


.WORD 


0 


iXSTl 


4918 057614 


000000 


.WORD 


0 


iXST2 


4919 057616 


000000 


.WORD 


0 


iXSTS 


4920 057620 


000000 


.WORD 


0 


iXST4 (ALWAYS PRESENT FOR URITE SIS.) 


4921 057622 




T19EXSTA: .BLKB 64. 


1 EXPECTED READ STATUS AND URITE FIFO DATA 


4922 057722 




T19E)(EN0: 




(END EXPECTED DATA BUFFER 


4923 




t ♦ 






4924 




iLOCAL TEXT MESSAGES FOR TEST 




4925 




t - 






4926 











K15 



TSV5 - HARDWARE TESTS 

TEST 8: SUBTEST 4 LOOPSACK 



SEQ 192 



4927 
4928 
4929 
4930 
4951 
4952 
4955 
4954 
4955 
4956 
4957 
4958 
4959 
4940 
4941 
4942 
4945 
4944 
4945 
4946 
4947 
4946 
4949 
4950 
4951 
4952 
4953 
4954 
4955 
4956 
4957 
4956 
4959 
4960 
4961 
4962 
4963 
4964 
4965 
4966 
4967 
4968 
4969 
4970 
4971 
4972 
4973 
4974 
4975 
4976 
4977 
4976 
4979 
4980 
4981 
49S2 
4983 



057722 
057765 
060020 
060064 
060151 
060174 
060240 
060505 
0603b2 
060420 
060502 
060576 
060664 
060740 
061025 
061111 
061200 
061265 
061370 



061474 
061474 

061500 
061504 
061510 
061512 
061514 
061516 



061520 
061520 
061524 
061530 
061534 
061536 



061540 
061540 
061544 
061550 
061554 
061560 



124 

127 
127 
127 
127 
127 
127 
127 
127 
106 
122 
124 
122 
106 
124 
103 
122 
114 
114 



162 
122 
122 
122 
122 
122 
122 
122 
122 
111 
145 
141 
145 
111 
141 
157 
145 
157 
157 



012701 
012702 
105021 
005302 
003375 
000207 



004737 
012700 
112720 
105010 
000207 



004737 
012700 
112720 
112710 
000207 



062072' 
000120 



061474' 

062230' 
000005 



061474' 
062230' 
000010 
000030 



141 TST19ID: 

111 T19SSR: 

111 T192SSR: 

111 T195SSR: 

111 T194SSR: 

111 T195SSR: 

111 T196SSR: 

111 T197SSR: 

111 T196SSR: 

106 T191CMP: 

141 T192CMP: 

160 T195CMP: 

141 T195a«>: 

106 T196CMP: 

160 T197CMP: 

156 T198CHP: 
141 T199CHP: 

157 T19USTR: 
157 T19RSTR: 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
, ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



.ASCIZ 'Transport Bus Int«rf«c« Leepbaek' 
URITE CHARACTERISTICS F«il«d' 
URITE SUBSYSTEM (Writ* H!«c) Fa!l«d' 
WRITE SUBSYSTEM (R«ad Status) Failed' 
WRITE SUBSYSTEM (Writ* Npr) Failed' 
WRITE SUBSYSTEM (Writ* FIFO) Failad' 
WRITE SUBSYSTEM (Raad FIFO) FaiUd' 
WRITE SUBSYSTEM (Writ* Control) Failod' 
WRITE SUBSYSTEM (Writ* Format) Failed' 
'FIFO Status !n WORD «9 Incorroct aftor 
'Raad FIFO Dtta not oqual to Writ* FIFO 



Inlttaliza' 

Data >v in WORD 
TAPE' 



Tap* Status 2 (in WORD «8) Incorroct aftor RESET 
'Road FIFO Data not ooual to Writs FIFO Data' 
'FIFO Status (in WORD «9) Incorroct aftor READ FIFO' 
Tapo Status 2 (in WORD M) Incorroct aftor RESET TAPE' 
'Control Signal Loopback Data Error. Data is in WORD M' 
'Road/Writo Looptoack Data Error. Data is in WORD «8' 
'Loopback Data Error whsn strobod by Writo strobo. Data ia 
'Loopback Data Error Mhon strobod by Road Strobo. Data is 



*8' 



in WORD «8' 
in WORD M 



I* 



CLEAR MESSAGE BUFFER 



T19CLRBUF: 

SAVREG 

nov 

MOV 
10* : CLRB 
DEC 
BGT 



RTS 



•T19BFR.R1 

«T196END-T19BrR.R2 

(RD* 

R2 

10« 

PC 



SETUP T19PK2 PACKET FOR READ STATUS 



T19SR0: 



JSR PC.T19CLR8UF 

NOV #T 190T2.ro 

MOVB «PW.R0STATUS.(R0)* 

CLRB (RO) 

RTS PC 



I SAVE R1-R5 UNTIL NEXT RETURN 

iGET MESSAGE BUFFER ADDRESS 

I SIZE OF MESSAGE BUFFER IN BYTES 

t CLEAR A BYTE 

tOONE? 

iBR IF NO 

iRETURN 



taEAR MESSAGE BUFFER 

t URITE SUBSYSTEM DATA BUF^^ER 

tSJOK READ STATUS COMNANO IN BSELO 

•CLEAR BSELl 

{RETURN 



! SETUP T19PK2 PACKET FOR WRITE MISC Rosot Tapo Status F-FLOPS 

T19RSFIF: 

JSR PC.T19CLRBUF 

MOV •T190T2.ro 

MOVB •PW.WMISC.(RO)* 

NOVB •MS.RSFIF!MS.RSTAP.(R0) 

RTS PC 



•CLEAR MESSAGE BUFFER 
•URITE SUBSYSTEM DATA BUFFER 
•STORE URITE MISCELLANEOUS IN BSELO 
•STORE BSELl CLEAR FIFO CODES 
•RETURN 



TsETUP T19PK2 PACKET FOR WRITE NPR 



TSV5 HARDWARE TESTS MACRO 111115 Ol-FEB-84 17:02 
TEST 8: SUBTEST 4 LOOPBACK READ STROBE TEST 



L15 



SEQ 19S 



4964 

4965 

4966 

4967 

4966 

4969 

4990 

4991 

4992 

4993 

4994 

4995 

4996 

4997 

4998 

4999 

5000 

5001 

5002 

5003 

5004 

5005 

5006 

5007 

5008 

5009 

5010 

5011 

5012 

5013 

5014 

5015 

5016 

5017 

5018 

5019 

5020 

5021 

5022 

5023 

5024 

5025 

5026 

5027 

5028 

5029 

5030 

5031 

5032 

5033 

5034 

5035 

5036 

5037 

5038 

5039 

5040 



061562 
061562 
061566 
061572 
061576 
061602 
061604 



061606 
061606 
061612 
061616 
061622 
061624 



061626 
061626 
061632 
061636 
061642 
061646 
061650 
061652 
061654 
061656 
061660 



061662 
061662 
061666 
061672 
061676 
06170C 



004737 
012701 
112721 
052700 
110011 
000207 



061474' 

062230' 

000011 

000020 



004737 
012701 
112721 
110021 
000207 



061474* 

062230' 
000003 



004737 
012702 
112722 
110022 
005022 
112122 
005300 
003375 
000207 



061474' 

062230' 
000004 



004737 
012701 
112721 
110021 
000207 



061474' 

062230' 
000006 



INPUT: 



RO CONTAINS BSELl NPR DATA 

SETS NP.URP SINCE IF 0 IT WRITES WRONG PARITY. 



T19SNPR: 



JSR PC.T19CLRBUF 

HOV #119012. Rl 

HOVB «PU.UNPR.(R1)» 

BIS tNP.URP.RO 

HOVB RO.CRl) 

RTS PC 



t CLEAR 
i WRITE 
i STORE 
i DON'T 
i STORE 
{RETURN 



MESSAGE BUFFER 
SUBSYSTEM DATA BUFFER 
WRITE NPR IN BSELO 
WRITE WRONG PARITY 
NPR DATA IN BSFLl 



t SETUP 

t INPUT; 
t 

nSRFIFi 



T19PK2 PACKET TOR READ FIFO 



RO CONTAINS SEL2 BYTE COUNT 



JSR PC.T19CLRBUF 

NOV ♦T190T2.R1 

HOVB «PU.RFIF0.CR1)» 

HOVB R0.(R1)» 

RTS PC 

SETUP T19PK2 PACKET FOR WRITE FIFO 

INPUT: 



t 
t 
t 
t 
t 

T19UFIF: 



{CLEAR MC3SAGE BUFFER 
{WRITE SUBSYSTEH DATA BUFFER 
{STORE READ FIFO IN BSELO 
{STORE BYTE COUNT IN BSELl 
{RETURN 



RO CONTAINS BYTE COUNT 
Rl CONTAINS DATA PATTERN BLOCK ADDRESS 



10>: 



SAVREG 

JSR PC.T19CLRBUF 

HOV tTlSOTa.Ra 

HOVB «PU.UFIF0.(R2)» 

HOVB R0.(R2)» 

CLR (R2)« 

HOVB (R1)».(R2)» 

DEC RO 

BGT 10* 

RTS PC 



{SAVE R1-R5 UNTIL NEXT RETURN 
laEAR HESSAGE BUFFER 
{WRITE SUBSYSTEM DATA BUFFER 
{STORE WRITE FIFO IN BSELO 
(STORE BYTE COUNT IN BSELl 
(CLEAR SEL2 (UNUSED) 
(STORE DATA PATTERN BYTE 
(DONE ALL BYTES? 
(BR IF NO 
(RETURN 



(♦ 

( SETUP 

I INPUT; 
( 

tI9UCTL: 



T19PK2 FOR WRITE CONTROL 



RO CONTAINS DRIVING DATA PATTERN 



JSR PC.T19CLRBUF 

HOV #T190T2.R1 

HOVB •PW.UCTL.(R1)» 

HOVB R0.CR1)» 

RTS PC 



(CLEAR HESSAGE BUFFER 
(WRITE SUBSYSTEH DATA BUFFER 
(STORE WRITE CONTROL IN BSELO 
(STORE DATA WORD IN BSELl 
(RETURN 



TsETUP T19PK2 FOR WRITE FORHT.T TRANSPORT REGISTER 



M15 



SEQ 194 



5041 
5042 
5043 
5044 
5045 
5046 
5047 
5048 
5049 
5050 
5051 
5052 
5053 
5054 
SOSS 
5056 
5057 
5058 
5059 
5060 
5061 
5062 
5063 
5064 
5065 
5066 
5067 
5068 
5069 
5070 
5071 
5072 
5073 
5074 
5075 
5076 
5077 
5076 
5079 
5060 
5081 
5082 
5083 
5084 
5085 
5086 
5087 
5088 
5089 
5090 
5091 
5092 
5093 
5094 
5095 
5096 
5097 



061702 
061702 
061706 
061712 
061716 
061720 



061722 
061722 
061726 
061732 
061736 



061740 
061740 
061744 

061750 
061752 
061754 
061756 



061760 
061760 
061764 
061770 
061774 
061776 
062000 
062002 



004737 
012701 
112721 
110021 
000207 



012700 
112720 
112710 
000207 



012701 
012700 
105021 
005300 
003375 
000207 



012702 
012703 
012700 
012322 
005300 
003375 
000207 



061474* 
062230' 
000007 



062230' 

000010 

000200 



057602' 
000120 



057602* 
062072' 
000010 



! INPUT: 

t RO CONTAINS ORIVINC DATA PATTERN 

T19WFMT: 

JSR PC.T19CLRBUF 

nOV •T190T2.R1 

nova «pu.uFnT.CRi)» 

nOVB RO.(Rl)* 

RTS PC 

»♦ 



t CLEAR MESSAGE BUFFER 
lURITE SUBSYSTEM DATA BUFFER 
t STORE URITE FORMAT IN BSELO 
t STORE DATA UQRO IN BSELl 
{RETURN 



i SETUP T19PK2 PACKET FOR URITE >1ISC. INVERT EXTENDED FEATURES SUITCH 



T19SEXT: 



MOV •T190T2.R0 

MOVB fPU.UMISC.CRO)* 

MOVB tMS.EXT.CRO) 

RTS PC 



t URITE SUBSYSTEM DATA BUFFER 

(STORE URITE MISCELLANEOUS IN BSELO 

t STORE INVERT EXTENDED FEATURES IN BSELl 

(RETURN 



I* 



CLEAR EXPECTED DATA MESSAGE BUFFER 
T19CLEXP: 



101: 



MOV 


•T19EXP.R1 


(GET EXPD ADDRESS 


MOV 


•T19EXEND-T19EXP.ro 


(GET EXPD SIZE 


CLRB 


CRD* 


(CLEAR A BYTE 


DEC 


RO 


(DONE? 


BGT 


10$ 


(BR IF NO 


RTS 


PC 


(RETURN 



|s«t UGROS 0-7 of •xpd 



T19SETEXP: 
MOV 
MOV 
MOV 

5$: MOV 
DEC 
BGT 
RTS 



•T19EXP.R2 

•T198FR,R3 

•8..R0 

(R3)*.(R2)» 

RO 

5$ 

PC 



BUFFER > to roev sine* not tosting 



(GET EXPD 

(GET READ STATUS RECV BUFFER 

(SET UORDS 0-7 EXP-RECV 

(SET EXPD-RECV 

(DONE UORDS 0-7 UORDS? 

(BR IF NO 

(RETURN 



(♦ 
( 

I 
( 
( 
{ 



CONVERT A TEST PATTERN DATA WORD TO LOOPBACK DRIVE SIGNALS 
INPUTS: 

RO TEST PATTERN 

IMPLICIT INPUTS; 

T19BFCTL - CONTAINS URITE CONTROL / URITE FORMAT CONVERSION BITS 
OUTPUTS: 

RO - LOU BYTE CONTAINS URITE CONTROL DATA 

- HIGH BYTE CONTAINS URITE FORMAT DATA 



N15 



V5 
ST 



SEQ 195 



5098 
5099 
5100 
5101 
5102 
5103 
5104 
5105 
5106 
5107 
5106 
5109 
5110 
Sill 
5112 
5115 
5115 
5117 
5116 
5119 
5120 
5121 
5122 
5123 
S124 
5125 
5126 
5127 
S12d 
S129 
5130 
5131 
5132 
5133 
5134 
5135 
5136 
5137 
5138 
5139 
5140 
5141 
5142 
5143 
5144 
5145 
5146 
5147 
5146 
5149 
5151 
5153 
5154 
5155 
5156 
5157 
5156 



062004 
062004 
062010 
062014 
062016 
062022 
062024 
062026 
062030 
062032 
062034 
062036 
062040 



062042 



062050 
062050 
062052 
062054 
062056 

062060 
062060 
062062 
062064 
062066 
062070 



062072 
062072 
062074 
062076 
062100 
062102 
062104 
062106 
062110 
062112 
062212 



062212 
062220 
062220 
062222 
062224 
062226 



012701 057536' 
005002 

012703 000020 

006000 

103001 

051102 

005721 

005303 

003372 

010200 

000207 



T19CNVI 



10$: 



100004 
062060' 
000000 
000012 



062072' 

000000 

000024 

000000 

000007 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



100006 
062230' 
000000 
000012 



201: 



SAVREG 




iSAVE R1-R5 UNTIL NEXT RETURN 


nov 


«T19BFCTL.R1 


1 CONVERSION TABLE ADDRESS 


CLR 


R2 


tINIT RESULT OF CONVERSION 


MOV 


«16..R3 


(BIT COUNT 


RUN 


DA 


1 Xb 1 nib If X 1 CUUML 1 u 1 / 


BCC 


201 


tBR IF NO 


BIS 


(R1).R2 


tSET CONVERTEC^BIT 


TST 


CRD* 


tPOINT TO NEXT BIT IN CONVERSION TABLE 


DEC 


R3 


(DONE? 


BGT 


lot 


iBR IF NO 


NOV 


R2.R0 


tCOPY RESULT 


RTS 


PC 


{RETURN 


.BLKB 


lO-<.-TSV267> 





i WRITE CHARACTERISTICS COMHAND PACKET 



T19PACKET: 

.WORD 
.WORD 
.UORD 
.WORD 



100004 

T19DATA 

0 

10. 



T19DATA: 



.WORD T19BFR 

.WORD 0 

.WORD 20. 

.WORD 0 

.UORO 7 



iCOmANO PACKET FOR TEST 

lURITE CHARACTERISTICS COHMAND. WITH ACK 

I ADDRESS OF CHARACTERISTICS BLOCK 

iMINIMUn MESSAGE PACKET SIZE 

t CHARACTERISTICS DATA BLOCK 
t ADDRESS OF MESSAGE BUFFER 

t LENGTH OF MESSAGE BUFFER 

tESS.ENB.EAI.ERI 

t EXTENDED FEATURES UNIT NO. 



{MESSAGE BUFFER FOR ALL TEST 6 COMMANDS 
T19BFR: 

.WORD 0 

.WORD 0 

.UORO 0 

.UORO 0 

.UORD 0 

.UORD 0 

.UORO 0 

.UORD 0 
T19BFSTA: .BLKB 64. 
T19BEND: 



I BEGIN MESSAGE BUFFER 

{MESSAGE TYPE 

(DATA FIELD LENGTH 

{R6PCR 

{XSTO 

{XSTl 

(XST2 

{XST3 

{XST4 (ALWAYS PRESENT FOR WRITE SUBSYSTEM 
{READ STATUS AND WRITE FIFO BUFFER 
{END OF MESSAGE BUFFER 



{WRITE SUBSYSTEM READ STATUS COMMAND PACKET 



T19PK2: 



.BLKB 10-<.-TSV267> 

.UORD P.WRTSUBiP.ACK 

.WORD T19DT2 

.WORD 0 

.WORD 10. 



{WRITE SUBSYSTEM WITH ACK 
{LOW ADDRESS OF DATA BLOCK 
{HIGH ADDRESS OF DATA BLOCK 
{MINIMUM MESSAGE PACKET SIZE 



B16 



TSVS - HAROUARC TESTS HACRO HIUS Ol-FEB-84 17:02 
TEST 6: SUBTEST 4 LOOPBACK READ STROBE TEST 



SEQ 196 



5159 0622S0 

5160 062250 000 

5161 062231 000 

5162 062232 000000 

5163 062234 
5164 

5165 

5166 062334 
062334 

062334 104401 

5167 
5168 
5169 
5170 
5171 
5172 
5173 
5174 
5175 
5176 
5177 
5178 
5179 
5180 
5181 
5182 
5183 
5184 
5185 
5186 
5187 
5188 
5189 
5190 
5191 
5192 
5193 
5194 
5195 
5196 
5197 
5196 
5199 
5200 
5201 
5202 
5203 
5204 
5205 
5206 
5207 
5208 
5209 
5210 
5211 
5212 
5213 



T190T2: 



.BYTE 0 

.BYTE 0 

.UORO U 

.BIKB 64. 



ENDTST 



I DATA BLOCK 
iBSELO 
iBSELl 
lSEL2 

I WRITE FIFO DATA OUTPUT BUFFER 



L10066: 



TRAP 



CIETST 



.S6TTL TEST 9: REAO/URITE DATA PARITY TEST 



TEST DESCRIPTION: 

This t—t v«r;f iM that ths Writ* Data Parity gwiarator 
and tha Raad Data Parity chackar eparata proparly. Tha 
Transport Bus aignal loopbaek noda ia mntlbltd and a 
Sat Wrong parity function is axacutad. Than various 
Writa Subsysta* Na«ery functions ara parformad to 
Hrita data to and froM tha FIFO In loopbaek aoda. 
Tha prooraM than ehacks to insura a Raad Data parity 
•rror occur rod. 

A Rasat FIFO is dona and tha Raad Data parity 
mrror bit is agpin tastad to inoura it cl^mrma. 
Finally a Claar orong parity function is dona 

it is varif iad tha data word can paas in loopbaek 
without sat ting Raad Data parity 9rr«r. 

TEST STEPS: 

REPEAT FOR LOOPCNT 
BEGIN 

Writa to TSSK raoistar to aoft initializa tha eontrollar 

9o WRITE CHARACTERISTICS to chock for Extandad Faaturas Switch 

If Extandad Faaturas Hardwara SMitch Claar than: 

Do Writa SUbaysta* Writa Niseallanaoua to Sat Extandad Faaturas. 
Do WRITE CHARACTERISTICS to salact r^tmryim^ unit 7 and satup BUFFER 
REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
BEGIN 

(• Varify Writa Wrono Parity Sats Parity Error *) 

Do a WRITE NPR to aat loopbaek wtd tapa diraction OUT 

and SET Writa Wrong Parity. 
Do a WRITE FORMAT to sat IRESV4-->IRSTR - 1 (aats raad streba high) 
Do a WRITE FIFO with byta count aquol to 1 and Tapa direction OUT 
Do a READ FIFO with tapa diraction OUT to load tapa out writa latch 

(this is whan wrong parity (IWP) ia sat) 
Do a WRITE FORMAT to oat IRESV4-->IRSTR - 0 (sat* raad atroba low) 

(Raad Stroba oata PAR IN H [Parity Error]) 
Do a WRITE FORMAT to sat IRESV4->>IRSTR - 1 (sats raad stroba high) 
Do a Writa Sobayata* READ STATUS 

Than Print Error 



If Raad Data parity mrror N0T"1 
Do a Writa Miac to RESET FIFO 
Do a Writa Subsysta* REM) STATUS 
If Rsad Data parity mrror NOT"0 



Than Print Error 



(* Varify Data can ba trmnufmrr^^ without a Parity Error •) 



TSV5 
TEST 



r8^«e9&R{^l^8ATA'^^SB9T74ilT 



C16 



FEBB4 !7i02 



SEQ 197 



5214 

5215 
5216 
5217 
5218 
5219 
5220 
5221 
5222 
5223 
5224 
5225 
5226 
5227 
5228 
5229 

5254 
S2S5 
5236 
5237 
S238 
S2S9 



5240 
5241 
5242 
5243 
5244 
5245 



5246 
5247 
5248 
5249 
5250 
5251 
5252 
5253 
5254 



5255 
5256 

5257 
5258 
5259 
5260 
5261 
5262 



062336 
062336 
062336 
062342 
062346 
062354 

062354 
062354 
062354 

062356 
062356 
062362 
062364 
062366 
062366 
062370 
062372 
062S74 

062376 
062402 
062406 
062412 
062426 
062430 
062432 
062432 
062432 
062434 
062436 
062440 
062442 
062446 
062446 



062450 
062454 
062462 
062464 



Do a WRITE FORMAT to Mt IRESV4>>>IRSTR ■ 1 (Mt* r«atf streb* high; 
Oo ■ WRITE NPR to Mt leoeb»elc aotf tap* diractSon OUT 

ar\4 CLEAR Writa Urono Parity. 
Do a WRITE FIFO Mith byta count a«ual to 1 and Tapa diraction OUT 
Oo a READ FIFO Mith tapa diraction OUT to load tapa out Mrita latch 
Do a WRITE FORMAT to aat IRESV4*->IRSTR • 0 Caata r«ma atroba lo«*) 

(Road Stroba ahould NOT aat PAR IN H [Parity Error) hara) 
Do a WRITE FORMAT to aat IRESV4-*>IRSTR - 1 (aata raad atroba hi^) 
Do a Writa Subayata* REM) STATUS 
If Raad Data parity mrror N0T*0 Than Print Error 



END 



012700 064722' 
004737 016322' 
012737 000012 002216' 



104402 



004737 015604' 

103405 

010001 

104455 
001604 
003646' 
011644' 

005037 002222' 
012704 066130' 
0047S7 010472' 

103407 
010001 



104455 

001605 

064751' 

011656' 

0052S7 002222' 



T20L00P: 



BGNTST 

MOV 
JSR 
MOV 



•TST20ID.ro 
PC.TSTSETUP 
#10. .LOOPCNT 



T9« • 

•ASCII MESSAGE TO IDENTIFY 
tOO INITIAL TEST SETUP 
•PERFORM 10 ITERATIONS 



TEST 



BGNSUB 



t 

SI: 



I //////////// BEGIN SUBTEST ////////// 
T9.1: 

TRAP CtBSUB 

Writa to TSSR rafliatar to aoft initializa tha controllar 



JSR 
BCS 
MOV 
ERROF 



PC.SOFINIT 

10» 

RO.Rl 

ERRNO . SriERR . SF IMSG 



t 

10«: 



I WRITE TO TSSR TO SOFT INITIALIZE 
I BR IF SOFT INIT OKAY 
I SAVE CONTENTS OF TSSR 
t DEVICE FATAL DURING INIT 

TRAP CIERDF 
.WORD 900 
.WORD SFIERR 
.WORD SFIMSG 

Do WRITE CHARACTERISTICS to chock for Extandad Faaturaa Switch 



104406 



012701 066152' 

032761 000200 000012 
001026 

004757 066056' 



12* : 



151: 

I 

I 



CLR FATFLG 
MOV ♦T20PACKET,R4 
JSR PC.WRTCHR 
FORCERROR 12 t 

BCS 15t 
MOV RO.Rl 
NEXT. ERRNO 

ERROF ER(itN0.T20SSR.PKTSSR 



(CLEAR FATAL ERROR FLAG 
I GET THE ADDRESS OF COMMAND PACKET 
lOO WRITE CHARACTERISTICS COMMAND 

I880F0RCE ERROR IF FORCER- 1 
tBR IF CARRY SET (GOOD RETURN) 
(SAVE CONTENTS OF TSSR 



lOEVlCE FATAL SSR FAILED TO SET 

TRAP CtEROF 
.WORD 901 
.WORD T20SSR 
.WORD PKTSSR 

INC FATFLG iSET FATAL ERROR FLAG 

CKLOOP I LOOP ON ERROR. IF FLAG SET 

TRAP C»CLP1 

If Extandad Faaturaa HardMara Switch Claar than: 
Do Writa Subayatam Writa Miacallanaoua to Sat Extandad Faaturaa. 

MOV •T20BFR.R1 iMESSAGE BUFFER ADDRESS 

BIT #X2.EXTF.XST2(R1) lEXTENOED FEATURES SWITCH SET? 

BNE 501 I BR IF YES 

JSR PC.T20SEXT iSETUP PACKET FOR WRITE MISC INVERT 



TSV5 
TEST 



. HARDWARE TESTS 
9: RE AO/WRITE DATA 



01 FEB 84 17:02 



D16 



SEQ 198 



5265 


062470 


012704 


06^ 300 


5264 


062474 


010465 


000000 


5265 


062500 


004 f 37 


016146 


5266 


062504 






5267 


062520 


103407 




5260 


062522 


010001 




5269 


/\it '^M 

062524 






5270 


062524 








062S24 


104455 






062526 


001606 






062530 


065006' 






/Vf 

062532 


011656' 




5271 


062554 


005237 


002222 


5272 


062540 








062540 


104406 




5273 








5274 


062542 


/\« 07/\X 

012704 


OD0130 


5275 


062546 


00*73 f 


A« AA 


5276 


062552 






5277 


062566 


103407 




5278 


062570 


OIOUOl 




5279 062572 






5280 062572 








062572 


104455 






062574 


001607 






062576 


064751' 






062600 


011656' 




S381 


062602 


005237 


002222' 


S282 062606 








062606 


104406 





221: 



SOI: 
I 



MOV •T20PK2,R4 
MOV R4,TSDB(R5) 
JSR PC.CHKTSSR 
FORCERROR 22) 
BCS 50 » 
MOV RO.Rl 
NEXT.ERRNO 

ERROf ERRNO. T202SSR .PKTSSR 



SUBSYSTEM CQMnANO PACKET 
*CKEr ADDRESS TO EXECUTE 



INC 

CKLOOP 



FATFL6 



42t: 



SOI: 



Do URXTC CHARACTERISTICS to 

nOV •T20PACKET.R4 

JSR PC.URTCHR 

FORCERROR 42* 

BCS 50$ 

nOV RO.Rl 

NEXT.ERRNO 

ERROF ERRNO. T20SSR. PKTSSR 



iGET WRITE ^ 
I SET THE PAd 
lUAIT FOR SSR TO SET 

iSSOFORCE ERROR IF fORCER-1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 

(DEVICE FATAL SSR FAILED TO SET 

TRAP CIEROF 
.WORD 902 
.UORD T202SSR 
.WORD PKTSSR 

I SET FATAL ERROR FLAG 
(LOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 

>l«ct roMrwod unit 7 

I GET THE ADDRESS OF COHKAND PACKET 
iDO URITE CHARACTERISTICS COMMAND 

ififiOFORCE ERROR IF FORCER -1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



INC 

CKLOOP 



FATFLG 



5283 
5284 
5285 
5286 
5287 
5288 
5289 
5290 
5291 
3292 
5293 
5294 
5295 
5296 
5297 
5298 
5299 
5300 
5301 
5302 
5303 



53C4 
5505 



•DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.UORD 
.WORD 

I SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP 



CIEROF 
905 
T20SSR 
PKTSSR 



CICLPl 



062610 
062614 
062620 
062626 



062632 
062636 
062642 
062646 
062652 
062656 
062662 
062666 
062702 
062704 
062706 
062706 
062706 
062710 
062712 
062714 
062716 
062722 



012703 
012337 
042757 
0103S7 



012700 
052700 
042700 
004757 
012704 
010465 
004757 

103407 
010001 



002752' 
002312' 

177400 002312' 
002316' 



000100 

000040 

000020 

065706' 

066300* 

000000 

016146' 



loot: 



REPEAT FOR ALL TEST PATTERNS IN 
NOV •TST6LK.R3 
NOV (R3)«.DATA 
BIC ♦tC< 377 », DATA 
MOV R3,TSTPTR 
Do • URITE NPR to Mt loopback 

and SET Writ* Uronfl Parity. 
NOV 4NP.0UT.ro iSET 
BIS «»F.L00P.RO 
BIC 4NP.URP.R0 
JSR PC.T20UNPR 
MOV •T20PK2.R4 
MOV R4.TSDB(R5) 
JSR PC.CHKTSSR 

1021 



TSTBLK TABLE 

I GET FIRST PATTERN ADDRESS 
iGET A TEST PATTERN 
iDATA IS BYTE 

I SETUP CURRENT TSTBLK POINTER 
mnd tap* diraetion OUT and 



T 

I SET 



104455 

001670 
065117' 
011656* 

005237 002222- 



1021: 



1051 i 



FORCERROR 
BCS 1051 
MOV RO.Rl 
NEXT.ERRNO 

ERROF ERRNO. T204SSR. PKTSSR 



TAPE DIRECTION OUT 
LOOPBACK 

I SET WRITE WRONG PARITY (INVERTED) 
I SETUP T20PK2 FOR WRITE NPR 
I GET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
iWAIT FOR SSR TO SET 

iBSOFORCE ERROR IF FORCER- 1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



INC 

CKLOOP 



FATFLG 



iDEVICE FATAL SSR FAILED TO SET 

TRAP CIEROF 
.WORD 904 
.WORD T204SSR 
.WORD PKTSSR 

tSET FATAL ERROR FLAG 

I LOOP ON ERROR. IF FLAG SET 



TSVS - HARDWARE TESTS MACRO Nil IS 
TEST 9: REAO/URITE DATA PARITY TEST 



062722 


104406 




5306 






5507 062724 


012700 


000001 


5506 062750 


004757 


066002' 


5509 062754 


012704 


066300' 


5510 062740 


010465 


000000 


5511 062744 


004757 


016146' 


5512 062750 






5515 062764 


105407 




5514 062766 


010001 




5515 062770 






5516 062770 






062770 


104455 




062772 


001611 




062774 


065271' 




062776 


011656' 




5517 065000 


005257 


0Q222Z' 


5516 065004 






069004 


104406 




5519 






5520 065006 


012700 


000001 


5521 065012 


012701 


002512' 


5522 065016 


004757 


065746' 


5525 065022 


012704 


066500' 


5524 065026 


010465 


000000 


5525 065052 


004757 


016146' 


5526 065056 






5527 065052 


105407 




5526 065054 


010001 




5529 065056 






S5S0 065056 






065056 


104455 




065060 


001612 




065062 


065162' 




065064 


011656' 




5551 065066 


005257 


002222' 


5552 065072 






065072 


104406 




5555 






5554 






5555 065074 


012700 


000001 


5556 065100 


004757 


065726' 


5557 065104 


012704 


066500' 


dd3o Oo5110 


010465 


000000 


5559 065114 


004757 


016146' 


5540 065120 




5541 065154 


105407 




5542 065156 


010001 










5544 065140 






065140 


1044SS 




065142 


001613 




065144 


065226' 




065146 


011656' 




5545 065150 


00525' 


002222' 


5546 065154 






065154 


104406 





FEB-64 17:02 



E16 



SEQ 199 



112 1: 



1201: 

X 



lS2t: 



1601: 

I 
I 



172* : 



1801: 



Do • WRITE FORMAT to Mt IRESV4-->IRSTR 
nOV tUF. I4RES.ro 
JSR PC.T20i*-MT 
nOV 4T20PK2.R4 
MOV R4.TSDB(R5} 
JSR PC.CHKTSSR 
FORCERROR 1121 
BCS 120) 
MOV RO.Rl 
NEXT.ERRNO 

ERROF ERRNO. T208SSR .PKTSSR 



TRAP CICLPl 
1 (sets r««d strob* hig^) 
iIRESV4>->IRSTR -1 
I SETUP T20PK2 FOR WRITE FORMAT 
iGET MITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
iWAIT FOR SSR TO SET 

iSaOFORCE ERROR IF FORCER -1 
I BR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



•DEVICE FATAL SSR FAILED TO SET 

TRAP CtEROF 
.WORD 90S 
.WORD T208SSR 
WORD PKTSSR 

INC FATFLG tSET FATAL ERROR FLAG 

CKLOOP I LOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 

Do a WRITE FIFO Mith byto count oquol to 1 and Tapa diraction OUT 

MOV tLRO 

NOV 40ATA.R1 
JSR PC.T20WFIF 
NOV •T20PK2.R4 
NOV R4.TSD6(R5) 
JSR PC.CWTSSR 
FORCERROR 1521 
BCS 160t 
NOV RO.Rl 
NEXT.ERRNO 

ERROF ERRN0.T205SSR.PKTSSR 



iWRITE 1 BYTE 
{FIFO WRITE DATA ADDRESS 
I SETUP T20PK2 FOR WRITE FIFO 
iGET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
I WAIT FOR SSR TO SET 

tSBOFORCE ERROR IF FORCER* 1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



iDEVICE FATAL SSR FAILED TO SET 

TRAP CtEROF 
.WORD 906 
.WORD T205SSR 
.WORD PKTSSR 

INC FATFLG sSET FATAL ERROR FLAG 

CKLOOP iLOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 

Do a READ FIFO Mith tapa diraction OUT to load tapa out MPita Latch 
(thia ia Mhan MrortQ parity (IWP) ia aat) 



NOV tl.RO 

JSR PC.T20RFIF 
NOV «r20PK2.R4 
MOV R4,TS0B(R5) 
JSR PC.CHKTSSR 
FORCERROR 1721 
BCS 1801 
NOV RO.Rl 
NEXT.ERRNO 

ERROF ERRNO. T206SSR. PKTSSR 



I SET READ BYTE COUNT 
I SETUP T20PK2 FOR READ FIFO 
:GET WRITE SUBSYSTEM COMMAND PACKET 
iSET THE PACKET ADDRESS TO EXECUTE 
iWAIT FOR SSR TO SET 

188OFORCE ERROR IF FORCER -1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



INC 

CKLOOP 



FATFLG 



•DEVICE FATAL SSR FAILED TO SE1 

TRAP 
.WORD 
.WORD 
.WORD 

(SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP 



CIERDF 

907 

T206SSR 
PKTSSR 



CICLPl 



SV5 * HARDWARE TESTS MACRO MI 
EST 9: READ/WRITE DATA PARITY 



5347 












5549 065156 


005000 




555Q 065I6v 


004 757 


066002 


5551 065I64 


012704 


066300' 


5552 065I70 


010465 


000000 


5555 D65I74 


AAA 

004737 


A« ^4 A^ i 

016146' 


5554 065200 






5555 OD5eI4 


105#07 




5556 065cl6 


Al AAAl 

OlOOOI 




555 r 9ccV 






5550 065c2v 






065ccU 


104#55 




OD5<:cc 


AA1 iLI A 




OD52<f4 


0652r 1 






All < 
0116D6 




UD54c5v 


AACOV7 
UU5£5r 


0022cc 


DOCK/ UOacd# 






UD5c5# 






050I 






DOOc UD5cdO 


A« 07AA 


AAAAA1 


5565 065«:4c 


AAA7'S7 


ACAAAO* 

066002 




A| 07AA 


AJLJ^TAA* 






AAAAAA 


3506 II65<56 




016140 


356 f Q6526c 






3dOO U654fr6 


% AVA A7 

105#07 




556*9 065500 


At AAA« 

OlOOOl 




5570 065502 






55 fl 065502 






A& TVA^ 

06550< 


104455 




06550# 


AA1 ^1 C 

001615 




UDOdU6 


^LC^71 I 

0652^1 




065510 


At 4 ^ ( 

01 1656 




55 f 2 065512 


005257 


002222' 


^X7T Aih,Wl^ 
55 '5 065516 






065516 


1U4406 












OO* 757 


065666 




Al 07AA 


A£^ VAA* 

066500 


SX77 Ai^XXXA 
DO f r WDOOdV 


Al AAJLS 


AAAAAA 
UOOOOO 




AAA7V7 


At ^\ f 

016146 






SUA AAXXSA 


lvO#0 r 




DOOl UOOODD 


Al AAAl 




DOO< UOOOCMl 






DOOO ^>OOOV 






UOOOOV 


1 AAACC 

10#^55 










063364 


065052' 




063366 


011656' 




S364 063370 


005237 


002222' 


5365 063374 






063374 


10440b 




5366 






5367 063376 


004 737 


066074' 


5386 063403 


012701 


064622' 



17:02 



ri6 



SEO 200 



WRITE FORMAT to Mt IRESV4-->IRSTR - 0 (set. 
(R«ad Strob* Mts PAR IN H [Parity Error]) 



Do a 

CLR 
JSR 
MOV 
MOV 
JSR 

FORCERROR 
BCS 200t 
MOV RO.Rl 
NEXT.ERRNO 

ERROF ERRNO . T208SSR . PKTSSR 



••ta raad atreb* Iom) 



RO 

PC.T20WFMT 
♦T20PK2.R4 
R4.TS0B(R5) 
PC.CHKTSSR 

1921 



lIRESV4-->IRSTR - 0 
I SETUP T20PK2 FOR WRITE FORMAT 
iGET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
I WAIT FOR SSR TO SET 

188DFORCE ERROR IF FORCER -1 
I BR IF CARRY SET (GOOD RETURN) 
iSAVE CONTENTS OF TSSR 



iDEVICE FATAL SSR FAILED TO SET 

TRAP 



INC 

CKLOOP 



FATFLG 



tSET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG 



a«t 



Do a WRITE FORMAT to 
MOV «WF. I4RES.ro 
JSR PC.T20WFMT 
MOV *T20PK2.R4 
HOV R4,TS0e(R5) 
JSR PC.CHCTSSR 
FORCERROR 2121 
BCS 220t 
MOV RO.Rl 
NEXT.ERRNO 
ERROF ERRNO, T208SSR. PKTSSR 



.WORD 
.WORD 
.WORD 

SET 
TRAP 



CtERDF 
906 

T20eSSR 
PKTSSR 



CICLPl 



INC 

CKLOOP 



FATFLG 



Do a Writa S>ji .ivataM REAC STATUS 

JSR PC.T2t>S>»D 

MOV ♦T20PK2.R4 

MOV R4.TSDB(R5) 

JSR PC.CMCTSSR 

FORCERROR 2321 

BCS 2401 

MOV RO.Rl 

NEXT.ERRNO 

ERROF ERRNO . T20SSSR .PKTSSR 



IRESV4-->IRSTR - 1 (aata raad at rob* h!(^) 
|IRESV4"->IRSTR • 1 
i SETUP T20PK2 FOR WRITE FORMAT 
iGET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
I WAIT FOR SSR TO SET 

18SOFORCE ERROR IF FORCER- 1 
iBR IF CARRY SET (GOOD RETURN) 
tSAVE CONTENTS OF TSSR 



t DEVICE FATAL SSR FAILED TO SET 

TRAP CtERDF 
.WORD 909 
.WORD T206SSR 
.WORD PKTSSR 

I SET FATAL ERROR FLAG 

I LOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 



I SETUP PACKET FOR READ STATUS 
iGET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
I WAIT FOR SSR TO SET 

tSSDFORCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOD RETURN) 
tSAVE CONTENTS OF TSSR 



I DEVICE FATAL SSR FAILED TO SET 

TRAP 



INC 

CKLOOP 



FATFLG 



If Road Data parity •rr^r NOT-1 
JSR PC.T20SETEXP 
MOV «T20EXSTA.R1 



.WORD 
.WORD 
.WORD 

SET 
TRAP 

Than Print Error 
iSET WORDS 0-7 EXPD-RECV (NOT 
iGET EXPECTED READ STATUS 



I SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG 



CIERDF 
910 

T203SSR 
PKTSSR 



C»CLPl 
TESTING) 



TSV5 HAROUARE TESTS MACRO NlllS OlFEB-84 17:02 
tEST 9: REAOAMZTE DATA PARITY TE<:T 



G16 



SS69 
SS90 
SS91 
5392 
5393 
5394 
5395 
5396 
5397 
5396 
5399 
5400 
5401 



063406 
063412 
063414 
063422 
063426 
063430 
063434 
063440 
063444 
063450 
063460 
063462 
063462 
063462 
063464 
063466 
063470 



012702 066172' 
011211 

016261 000002 000002 

052711 100000 
005000 

012701 066152' 

012702 064602' 

012703 000024 
004737 011310' 

103404 



104456 

001617 

065337' 

012160* 



5402 


063472 








063472 


104406 




5403 








5404 


063474 


012700 


000020 


5405 


063500 


004737 


066022' 


5406 


063504 


012704 


066300' 


5407 


063510 


010465 


000000 


5406 


063514 


004737 


016146' 

W Aw Jk ~ W 


5409 


063S20 






5410 


063534 


103407 




5411 


063536 


010001 




5412 


063540 






5413 


063540 








063540 


104455 






063542 


001620 






063544 


065006' 






063546 


011656' 




5414 


063550 


005237 


002222' 


5415 


063554 








063554 


104406 




5416 








5417 








5418 


063556 


004737 


066074' 


5419 


063562 


012701 


064622' 


5420 


063566 


012702 


066172' 


5421 


063572 


011211 




5422 


063574 


016261 


000002 000002 


5423 


063602 


042711 


100000 


5424 


063606 


005000 


5425 


063610 


012701 


066152' 


5426 


063614 


012702 


064602' 


5427 


063620 


012703 


000024 


5426 


063624 


004737 


011310' 


5429 


063630 






5430 


063640 


103404 




5451 


063642 






5432 


063642 








063642 


104456 






063644 


001621 






063646 


065446' 





2521: 

2601: 
t 



262t: 



290t: 

t 
I 



302>: 



HOV 
HOV 
HOV 
BIS 
CLR 
MOV 
MOV 
MOV 
JSR 



*T20eFSTA.R2 

(R2).(R1) 

2(R2).2(R1) 

«S1.PARERR,(R1) 

RO 

♦T20BFR.R1 
•T20EXP.R2 
•20. .R3 
PC.CKMSG2 

2S2I.N0TSSR 



FORCERROR 
BCS 2601 
NEXT.ERRNO 

ERRHRO ERRNO . T20SUP . NSGSTAT 



CKLOOP 



FIFO 



Oe • Ur\f Hisc to RESET 
MOV •MS.RSriF.RO 
JSR PC.T20yMISC 
NOV •T20PK2.R4 
MOV R4.TS0e(R5) 
JSR PC.CHKTSSR 
FORCERROR 262» 
BCS 290t 
MOV RO.Rl 
NEXT • ERRNO 

ERROF ERRNO. '202SSR.PKTSSR 



INC 

CKLOOP 



FATfLG 



iGET RECV READ STATUS 

I SET EXPO WORD •B - RECV TEMP 

I SET EXPO WORD «9 - RECV (NOT 

I SET EXP PAR ERR >1 

I HIGH RECV ADDRESS FOR CKMSG2 

I LOW RECV M>DRESS FOR CKMSG2 

lEXPD ADDK'SS 

I NUMBER OF BYTES TO COMPARE 

I EXPO EQUAL RECV? 

|880 

I BR IF YES 



SEQ 201 



TESTED) 



{REPORT ERROR 



iLOOP ON ERROR. IF 



TRAP 
.WORD 
.WORD 
.WORD 
FLAG SET 
TRAP 



CIERHRO 
911 

T20SUP 
MSGSTAT 

CICLPl 



Oe • Writ* Sub«y«t«« READ STATUS 
If R««d Data parity arrer N0T>0 

JSR 

HOV 
MOV 
MOV 
HOV 
BIC 
CLR 
HOV 
HOV 
HOV 
JSR 



tSET RESET FIFO COMHAND 

I SETUP T20PK2 FOR WRITE HISC 

iGET WRITE SUBSYSTEH COMMAND PACKET 

I SET THE PACKET ADDRESS TO EXECUTE 

I WAIT FOR SSR TO SET 

tSSOFORCE ERROR IF FQRCER-l 
}BR IF CARRY SET CGOOD RETURN) 
tSAVE CONTENTS OF TSSR 

I DEVICE FATAL SSR FAILED TO SET 

TRAP CIERDF 
.WORD 912 
.WORD T202SSR 
.WORD PKTSSR 

tSET FATAL ERROR FLAG 
tLOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 



PC.T20SETEXP 
•T20EXSTA.R1 
•T20eFSTA.R2 
(R2).(Rl) 
2(R2).2(R1) 
•Sl.PARCRR.CRl) 
RO 

•T20BFR.R1 
•T20EXP.R2 
•20. .R3 
PC.CKMSG2 

302t.N0TSSR 



FORCERROR 
BCS 320t 
NE X T ERRNO 

ERRHRO ERRNO . T20RSF . MSGSTAT 



Than Print Error 
tSET WORDS 0-7 EXPD-RECV (NOT TESTING) 
tGET EXPECTED READ STATUS 
tGET RECV READ STATUS 
:SET EXPO WORD •O • RECV TEHP 
tSET EXPO klORO #9 - RECV (NOT TESTED) 
tSET EXP PAR ERR -0 
iHIGH RECV ADDRESS FOR CKHSG2 
tLOW RECV ADDRESS FOR CKHSG2 
I EXPO ADDRESS 

(NUMBER OF BYTES TO COMPARE 
(EXPO EQUAL RECV? 
(800 

I BR IF YES 



I REPORT ERROR 



TRAP 

.WORD 

.WORD 



CtERHRD 

913 

T20RSF 



TSV5 
TEST 



HARDWARE 
9: REAO/yRI 





063650 


012160' 




5455 


063652 








063652 


104406 




5434 








5435 








5436 


063654 


012700 


000001 


5437 


063660 


004737 


066002' 


5456 


063664 


012704 


066300' 


5439 


063670 


010465 


000000 


5440 


063674 


004737 


016146' 


5441 


063700 






5442 


063714 


103407 




544! 


063716 


010001 




5444 


063720 






5445 


063720 








063720 


104455 






063722 


001622 






063724 


065271' 






063726 


011656' 




5446 


063730 


00S2S7 


002222' 


5447 


063734 








063734 


104406 





5449 
5449 
5450 
5451 
5452 
5453 
5454 
5455 
5456 
5457 
5458 
5459 
5460 
5461 



5462 
5463 

5464 

5465 
5466 
5467 
5468 
5469 
5470 
5471 
5472 
5473 
5474 
5475 



063736 
063742 
063746 
063752 
065756 
065762 
065766 
063772 
06«006 
064010 
064012 
064012 
064012 
064014 
064016 
064020 
064022 
064026 
064026 

064030 
064034 
064040 
064044 
064050 
064054 
064060 
064074 
064076 
064100 
064100 
064100 
064102 



012700 
052700 
052700 
004737 
012704 
010465 
004737 

103407 
010001 



000100 

000040 

000020 

065706* 

066300' 

000000 

016146' 



104455 

001625 

065117- 

011656' 

005237 002222* 



104406 

012700 
012701 
004737 
012/04 
010465 
004737 

103407 
010001 



104A55 
001o24 



000001 

002312' 

065746' 

066300* 

000000 

016146* 



17:02 



H16 



SEQ 202 



CKLOOP 



(* Verify Data can ba trunmfmrrm^ Mitheut 
Do a MITE rORHAT to aat IRESV4">IRSTR 



NOV «UF. I4RES.ro 
JSR PC.T20UFNT 
NOV «T20PK2.R4 
NOV R4,TS0BCR5) 
JSR PC.CHKTSSR 
FORCERROR 332 t 

BCS 3401 
NOV RO.Rl 
NEXT.ERRNQ 

ERROr ERRN0.T208SSR.PKTSSR 



.WORD NSGSTAT 
I LOOP ON ERROR, ir FLAG SET 

TRAP CtCLPl 
Parity Error •) 
1 (fata raatf atroba high) 



iIRES/4->>XRSTR - 1 
ISETIP T20PK2 FOR URITE FORMAT 
I GET URITk SUBSYSTEN COmAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
I WAIT FOR SSR TO SET 

iSttFORCE ERROR IF FORCER -1 
tBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



•DEVICE FATAL SSR FAILED TO SET 

TRAP CtERDF 
.WORD 914 
.UORD T208SSR 
.UORD PKTSSR 

iSET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP CtCLPl 

Do a URITE NPR to aat loopback and tapa diractlon OUT 



INC 

CKLOOP 



NOV 
BIS 
BIS 
JSR 
NOV 
NOV 
JSR 



FATFLG 



and CLEAR Urita Urono Parity. 



«NP.OUT.RO 
4NP.L00P.ro 
«NP. URP.ro 
PC.T20UNPR 
•T20PK2.R4 
R4.TSDB(R5) 
PC.CHKTSSR 

352« 



FORCERROR 
BCS S60> 
NOV RO.Rl 
NEXT.ERRNO 

ERRDF ERRNO . T204SSR . PKTSSR 



INC 

CKLOOP 



FATFLG 



Do a URITE FIFO MSth byta count 
NOV 41. RO 
NOV tOATA.Rl 

JSR PC.T20UFIF 
NOV «T20PK?,R4 
NOV R4.TS06(R5) 
JSR PC.CHKTSSR 
FORCERROR 372 » 

BCS 360t 
NOV RO.Rl 
NEXT.ERRNO 

ERRDF ERRNC.T20SSSR. PKTSSR 



I SET TAPE DIRECTION OUT 
I SET LOOPBACK 

I CLEAR URITE URONG PARITY (INVERTED) 
I SETUP T20PK2 FOR URITE NPR 
I GET URITE SUBSYSTEN COmAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
iUAIT FOR SSR TO SET 

tSSDFORCE ERROR IF FORCER-1 
;BR IF CARRY SET (GOOD RETURN) 
(SAVE CONTENTS OF TSSR 

i DEVICE FATAL SSR FAILED TO SET 

TRAP CIEROF 
.WORD 915 
.WORD T204SSR 
.WORD PKTSSR 

I SET FATAL ERROR FLAG 
tLOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 
aqual to 1 and Tapa diraetion (NJT 
tURITE 1 BYTE 
iFIFO URITE DATA ADDRESS 
I SETUP T20PK2 FOR URITE FIFO 
iGET URITE SUBSYSTEN CONNANO PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
tUAIT FOR SSR TO SET 

iSaOFORCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 

I DEVICE FATAL SSR FAILED TO SET 

TRAP CtERDF 
.UORD 91e 



116 



TSV5 HARDWARE TESTS MACRO M1113 OlFEB-64 
TEST 9: REAO/WRITE DATA PARITY ^EST 



380$: 



064104 


065162' 




064106 


011656' 




5476 064110 


005237 


002222' 


5477 064114 






064114 


104406 




5478 






5479 064116 


012700 


000001 


5480 064122 


004737 


065726' 


5481 064126 


012704 


066300' 


5482 0641S2 


010465 


000000 


548S 064136 


004737 


016146' 


5484 064142 






5485 064156 


103407 




5486 064160 


010001 




5487 064162 






5488 064162 






064162 


104455 




064164 


001625 




064166 


065226' 




064170 


011656* 




5489 064172 


005237 


002222' 


5490 064176 






064176 


104406 





5491 
5492 
5493 
5494 
5495 
5496 
5497 
5498 
5499 
5500 
5501 
5502 



5503 
5504 

5505 
5506 
5507 
5508 
5509 
5510 
5511 
5512 
5513 
5514 
5515 



064200 
064202 
064206 
064212 
064216 
064222 
064236 
064240 
064242 
064242 
064242 
064244 
064246 
064250 
064252 
064256 
064256 

064260 
064264 
064270 
064274 
064300 
064304 
064320 
064322 
064324 
064324 
064324 
064326 
064330 
064332 



005000 

004737 066002' 

012704 066300' 

010465 000000 

004737 016146' 

103407 
010001 



104455 
001626 
065271' 
011656' 

005237 002222' 



104406 

012700 
004737 
012704 
010465 
004737 

103407 
010001 



3921: 



400t: 

i 
I 



412* : 



420* t 



000001 

066002' 

066300' 

000000 

016146' 



104455 
001627 
065271' 
011656' 



432t: 



17:02 



INC 

CKLOOP 



SEO 203 



FATFLG 



Do a REM) FIFO ttith 
HOV #1.R0 
JSR PC.T20RFIF 
HOV «T20PK2.R4 
HOV R4.TS0BCR5) 
JSR PC.CHKTSSR 

392* 



FORCERROR 
BCS 4001 
HOV RO.Rl 
NEXT.ERRNO 

ERROF ERRN0.T206SSR.PKTSSR 



.WORD T205SSR 
.WORD PKTSSR 

I SET FATAL ERROR FLAG 

I LOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 
tap* diraetion OUT to load tap* out Mrit* latch 

I SET READ BYTE COUNT 
I SETUP T20PK2 FOR READ FIFO 
tGET URITE SUBSYSTEM COmANO PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
lUAIT FOR SSR TO SET 

I0SOFORCE ERROR IF FORCER 'l 
iBR IF CARRY SET (GOOD RETURN) 
tSAVE CONTENTS OF TSSR 



I DEVICE FATAb SSR FAILED TO SET 

TRAP CIEROF 

.UORO 917 

.yORO T206SSR 

.UORD PKTSSR 

INC FATFLG fSET FATAL ERROR FLAG 

CKLOOP I LOOP ON ERROR. IF FLAG SET 

TRAP C9CLP1 

URITE FORHAT to *at IRESV4-->IRSTR - 0 (**t* raad atrob* Iom) 
(Raad Stroba aata PAR IN H (Parity Error]) 



Do a 

CLR 
JSR 
HOV 
HOV 
JSR 

FORCERROR 
BCS 420* 
HOV RO.Rl 
NEXT.ERRNO 

ERRDF ERRN0.T208SSR.PKTSSR 



RO 

PC.T20WFMT 
•T20PK2.R4 
R4.TS0B(R5) 
PC.CHKTSSR 

4121 



|IRESV4«->IRSTR • 0 
I SETUP T20PK2 FOR URITE FORHAT 
iGET URITE SUBSYSTEH COHHAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 

tSSOFORCE ERROR IF FORCER -1 
iBR IF CARRY SET (GOOD RETURN) 
iSAVE CONTENTS OF TSSR 



INC 

CKLOOP 



FATFLG 



Do a URITE FORHAT 
HOV 
JSR 
HOV 
HOV 
JSR 



•UF.I4RES.ro 
PC.T20UFHT 
•T20PK2.R4 
R4,TSD6(R5) 
PC.CHKTSSR 



I DEVICE FATAL SSR FAILED TO SET 

TRAP CIEROF 

.WORD 918 

.WORD T^08SSR 

.UORD PKTSSR 

I SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP C»CLP1 
to sat IRESV4-->IRSTR • 1 Coata raad atroba high) 



FORCERROR 432» 
BCS 4401 
HOV RO.Rl 
NEXT.ERRNO 

ERRDF ERRNO . T208SSR . PK TSSR 



iIRESV4--»IRSTR - 1 
t SETUP T20PK2 FOR URITE FORHAT 
I GET URITE SUBSYSTEH COHHANO PACKET 
;SET THE PACKET ADDRESS TO EXECUTE 
I WAIT FOR SSR TO SET 

18SDFORCE ERROR IF FORCER- 1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 

I DEVICE FATAL SSR FAILED TO SET 

TRAP C»EROF 
.WORD 919 
.WORD T206SSR 
.WORD PKTSSR 



J16 



TSV5 - HARDWARE TESTS MACRO HlllS 01 -FEB -64 17:02 
TEST 9: REAO/URITE DATA PARITY TEST 



5516 064354 


005237 


002222' 


5517 064540 






064340 


104406 




5518 






5519 






5520 064542 


004757 


065666' 


5521 064546 


012704 


066300' 


5522 064352 


010465 


000000 


5523 064356 


004737 


016146' 


5524 064362 






5525 064376 


105407 




5526 064400 


010001 




5527 064402 






5526 064402 






064402 


104455 




064404 


001630 




064406 


065052' 




064410 


011656' 




5529 064412 


005237 


002222' 


5530 064416 






064416 


104406 




5531 






5532 064420 


004737 


066074' 


5533 064424 


012701 


064622' 


5534 064430 


012702 


066172' 


5535 064434 


011211 




5536 064436 


016261 


000002 000002 


5537 064444 


042711 


100000 


5536 064450 


005000 




5539 064452 


012701 


066152' 


5540 064456 


012702 


064602' 


5541 064462 


012703 


000024 


5542 064466 


004737 


011310' 


5543 064472 






5544 064502 


103404 




5545 064504 






5546 064504 






064504 


104456 




064506 


001631 




064510 


065547' 




064512 


012160' 




5547 064514 






064514 


104406 




5546 






5549 064516 






5550 064526 


013703 


002316' 


5551 064532 


020327 


003062' 


5552 064536 


103002 




5553 064540 


000137 


062614' 


5554 064544 






5555 






5556 064544 






064544 






064544 


104403 




5557 






5556 064546 


005737 


002222' 


5559 064552 


001402 





440$: 



452$: 



460$: 



472$: 



480$: 



555$: 



INC 

CKLOOP 



FATFLG 



I SET FATAL ERROR FLAG 
I LOOP ON ERROR. IF FLAG SET 

TRAP 



SEQ 204 



C$CLP1 



Writ* Sub«y«t«m READ STATUS 
PC.T20SRD 



Do 
JSR 

nOV «T20PK2.R4 
nOV R4.TS0B(R5) 
JSR PC.CHKTSSR 
FORCERROR 452$ 
BCS 460$ 
MOV RO.Rl 
NEXT.ERRNO 

ERROF ERRN0.T203SSR.PKTSSR 



INC 

CKLOOP 



FATFLG 



If R«ad Data parity 9rror NOT-0 

JSR PC.T20SETEXP 

MOV tTaOEXSTA.Rl 

MOV «T20BFSTA.R2 

MOV (R2).CR1) 

MOV 2(R2).2(R1) 

SIC •Sl.PARERR.(Rl) 

CLR RO 

MOV #T20BFR.R1 

MOV #T20EXP.R2 

MOV #20. .R3 

JSR PC.CKMSG2 

FORCERROR 472$.N0TSSR 

BCS 480$ 

NEXT.ERRNO 

ERRHRD ERRN0.T20CUP.MSGSTAT 



CKLOOP 



FORCEXIT 555$ 
MOV TSTPTR.R3 
CMP RS.#TBLEND 
BHIS 555$ 
JMP 100$ 



ENDSUB 



TST 
BEQ 



I SETUP PACKET FOR READ STATUS 
iGET URITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
I WAIT FOR SSR TO SET 

tSflOFORCE ERROR IF FORCER- 1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 

(DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 
.UORO 920 
.UORD T203SSR 
.UORO PKTSSR 

(SET FATAL ERROR FLAG 

I LOOP ON ERROR. IF FLAG SET 

TRAP C$CLP1 

Than Print Error 

tSET WORDS 0-7 EXPO-RECV (NOT TESTING) 

I GET EXPECTED READ STATUS 

tCET RECV READ STATUS 

iSET EXPO UORD M • RECV TEMP 

tSET EXPO UORD #9 - RECV CNOT TESTED) 

tSET EXP PAR ERR -0 

tHIGH RECV ADDRESS FOR CKMSG2 

I LOU RECV ADDRESS FOR CKMSG2 

tEXPO ADDRESS 

•NUMBER OF BYTES TO COMPARE 
tEXPD EQUAL RECV? 



C$ERHRD 
921 

T20CUP 
MS6STAT 

C$CLP1 



tBR IF YES 
•REPORT ERROR 

TRAP 
.UORD 
.UORD 
UORO 

•LOOP ON ERROR. IF FLAG SET 

TRAP 



t880 

{RESTORE CURRENT TSTBLK POINTER 
I END OF TSTBLK? 
tBR IF YES 

lOO ANOTHER TSTBLK PATTERN 



I //////////// 



END SUBTEST ////////// 
L 10074: 

TRAP C$ESUB 



FATFLG 
560$ 



•ANY FATAL ERRORS 
•BRANCH IF NOT 



TSV5 • HARDWARE TESTS MACRO M1113 OI-FEB-64 17:02 
TEST 9: READ/WRITE DATA PARITY TEST 



K16 



SEQ 205 



5560 
5561 
5562 
5563 
5564 
5565 
5566 



5567 
5568 
5569 
5570 
5571 
5572 
5573 
5574 
5575 
5576 
5577 
5576 
5579 
5560 
5561 
5562 
5563 
5564 
5565 
5566 
5567 
5586 
5569 
5590 
5591 
5592 
5593 
5594 
5595 
5596 
5597 
5598 
5599 
5600 
5601 
5602 
5603 
5604 
5605 
5606 
5607 
5606 
5609 
5610 
5611 
5612 
5613 
5614 



064554 
064560 
064560 
064564 
064566 
064572 
064572 
064572 
064574 



064576 

064576 
064577 
064600 
064601 

064602 
064602 
064604 
064606 
064610 
064612 
064614 
064616 
064620 
064622 
064722 



064722 
064751 
065006 
065052 
065117 
065162 
065226 
065271 
065337 
065446 
065547 



065642 
065642 
065646 
065652 



004757 017014' 

004737 016270' 
103002 

000137 050246' 



104432 
001620 



377 
037 
360 
000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



122 
127 
127 
127 
127 
127 
127 
127 
122 
122 
122 



145 
122 
122 
122 
122 
122 
122 
122 
145 
145 
145 



560$: 



565 S: 



t ♦ 



JSR 

JSR 
BCC 
JMP 

EXIT 



PC.CKDROP 

PC.TSTLOOP 
565 1 
T16L00P 

TST 



iLOCAL STORAGE FOR THIS TEST 



T20HSK: 



.BYTE tC<000> 

.BYTE tC<340> 

.BYTE tC<017> 

.BYTE 0 



T20EXP: 



T20EXSTA: 
T20EXEN0: 



.WORD 
.WORD 
.WORD 
.UORO 
.WORD 
.WORD 
.WORD 
.UORO 



0 
0 
0 
0 
0 
0 
0 
0 



.6LKB 64. 



:LOCAL TEXT MESSAGES FOR TEST 



I TRY TO DROP THE UNIT 

I DO ITERATIONS? 
iBR IF NO 

iLOOP UNTIL ITERATIONS DONE 

I ////////// EXIT TEST ////////// 

TRAP CtEXIT 
.WORD L 10073 • 



I MASK OF UNTESTED BITS IN READ STATUS 
(UNTESTED BITS ARE SET TO 1 
(BYTE 0 MASK 

I BYTE 1 HASK (PARERR.IRESV2.IRESV1) 
iBYTE 2 (TIMER A.TIHER B.UNDEFINED<1:0> ) 
iMAKE IT EVEN 

I BEGIN EXPECTED DATA BUFFER 

tfCSSAGE TYPE 

iDATA FIELD LENGTH 

iRBPCR 

iXSTO 

»XST1 

JXST2 

iXSTS 

iXST4 (ALWAYS PRESENT FOR WRITE SUB.) 
tEXPECTED READ STATUS AND WRITE FIFO DATA 
:ENO EXPECTED DATA BUFFER 



141 TST20ID: 

111 T20SSR: .ASCIZ 

111 T202SSR: .ASCIZ 

111 T203SSR: .ASCIZ 

111 T204SSR; .ASCIZ 

111 T205SSR: .ASCIZ 

111 T206SSR:. ASCIZ 

111 T206SSR: .ASCIZ 

141 T20SWP: .ASCIZ 

141 T20RSF: .ASCIZ 

141 T20CUP: .ASCIZ 
.EVEN 



.ASCIZ 'R«ad/Wpit« Data Parity' 

WRITE CHARACTERISTICS Failed' 

WRITE SUBSYSTEM (Writ* Misc) Fa • lad' 

WRITE SUBSYSTEM (Raad Status) Failed' 

WRITE SUBSYSTEM (Writa Npr) Failed' 

WRITE SUBSYSTEM (Write FIFO) Failed' 
'WRITE SUBSYSTEM (Read FIFO) Failed* 

WRITE SUBSYSTEM (Write Format) Failed' 

Read Data Parity Error (PARERR) Failed to Set after Write Wrong Par' 
Read Data Parity Error (PARERR) Failed to Clear after RESET riFO' 
'Read Data Parity Error (PARERR) occurred in Data Loopback' 



i ♦ 
I 
t 



CLEAR MESSAGE BUFFER 



012701 066 152' 

012702 000120 



T20CLRBUF : 

SAVREG 

MOV 

MOV 



«T20BFR,R1 
«T20BEN0 - T206rR . R2 



sSAVE R1-R5 UNTIL NEXT RETURN 
:GEr HESSAGE BUFFER ADDRESS 
iSIZE OF MESSAGE BUFFER IN BYTES 



TSVS • HARDWARE TESTS MACRO M1113 01 TEB-aA 17:02 
TEST 9t REAO/URITE DATA PARITY TEST 



L16 



SEQ 206 



5615 
5616 
5617 
5618 
5619 
5620 
5621 
5622 
5623 
5624 
5625 
5626 
5627 
5628 
5629 
5630 
5631 
5632 
5633 
5634 
5635 
5636 
5637 
5638 
5639 
5640 
5641 
5642 
5643 

5645 
5646 
5647 
5648 
5649 
5650 
5651 
5652 
5653 
5654 
5655 
5656 
5657 
5658 
5659 
5660 
5661 
5662 
5663 
5664 
5665 
5666 
5667 
5668 
5669 
5670 
5671 



065656 
065660 
065662 
065664 



065666 
065666 
065672 
065676 
065702 
065704 



065706 
065706 
065712 
065716 
065722 
065724 



065726 
065726 
065732 
065736 
065742 
065744 



065746 
065746 
065752 
065756 
065762 
065766 
065770 
065772 



105021 
005302 
003375 
000207 



004737 
012700 
112720 
105010 
000207 



065642' 
066310' 
000005 



004737 
012701 
112721 
110011 
000207 



065642' 
066310' 
000011 



004737 
012701 
112721 
110021 
000207 



065642* 
066310' 
000003 



004737 
012702 
112722 
110022 
005022 
112122 



065642' 
066310' 
000004 



10$: CLRB (Rl)« 

DEC R2 

BGT lot 

RTS PC 



SETUP T20PK2 PACKET FOR READ STATUS 



T20SRD: 



JSR PC.T20CLRBUF 

MOV *T20DT2.R0 

MOVB «PU.RDSTATUS.(RO)» 

CLRB (RO) 

RTS PC 



SETUP T20PK2 PACKET TOR URITE NPR 
I INPUT: 

I RO CONTAINS BSELl NPR DATA 

i 

T20UNPR: 

JSR PC.T20CLRBUF 
MOV •T20DT2.R1 
nOVB «PU.UNPR.(R1)» 
HOVB RO.CRl) 
RTS PC 

I^SETUP T20PK2 PACKET FOR READ riFO 
! INPUT: 

I RO CONTAINS SEL2 BYTE COUNT 

T20RFIF: 

JSR PC.T20aRBUF 
MOV •T200T2.R1 
MOVB «PU.RriFO.CRl)* 
MOVB RO.CRl)* 
RTS PC 

SETUP T20PK2 PACKET FOR URITE FIFO 



INPUT: 



i CLEAR A BYTE 
I DONE 7 
iBR IF NO 
i RETURN 



I CLEAR MESSAGE BUFFER 

I URITE SUBSYSTEM DATA BUFFER 

i STORE READ STATUS COMMAND IN BSELO 

I CLEAR BSELl 

(RETURN 



I CLEAR MESSAGE BUFFER 
lURITE SUBSYSTEM OATA BUFFER 
t STORE URITE NPR IN BSELO 
i STORE NPR OATA IN BSELl 
i RETURN 



t CLEAR MESSAGE BUFFER 
lURITE SUBSYSTEM DATA BUFFER 
t STORE READ FIFO IN BSELO 
I STORE BYTE COUNT IN BSELl 
I RETURN 



RO CONTAINS BYTE COUNT 

Rl CONTAINS OATA PATTERN BLOCK ADDRESS 



T20WFIF: 



10$: 



SAVREG 

JSR 

MOV 

MOVB 

MOVB 

CLR 

MOVB 



PC.T20CLRBUF 

♦T200T2.R2 

4PU.UFIF0.(R2)» 

R0.CR2)* 

CR2)f 

(R1)*,(R2)* 



I SAVE R1-R5 UNTIL NEXT RETURN 
(CLEAR MESSAGE BUFFER 
(WRITE SUBSYSTEM DATA BUFFER 
(STORE URITE FIFO IN BSELO 
(STORE BYTE COUNT IN BSELl 
(CLEAR SEL2 (UNUSED) 
(STORE DATA PATTERN BYTE 



TSV^. - HARDWARE TESTS MACRO M1113 Ol-FEB-dA 17:02 
TEST 9: READ/WRITE DATA PARITY TEST 



M16 



SEQ 207 



5672 
5675 
5674 
5675 
5676 
5677 
5678 
5679 
5660 
5661 
5682 
5683 
5684 
5685 
5686 
5687 
5688 
5689 
5690 
5691 
5692 
5693 
5694 
5695 
5696 
5697 
5698 
5699 
5700 
5701 
5702 
5703 
5704 
5705 
5706 
5707 
5708 
5709 
5710 
5711 
5712 
5713 
5714 
5715 
5716 
5717 
5718 
5719 
5720 
5721 
5722 
5723 
5724 
5725 
5726 
5727 
5728 



065774 
065776 
066000 



005300 
003375 
000207 



DEC 
BGT 

RTS 



RO 

lot 

PC 



066002 
066002 
066006 
066012 
066016 
066020 



066022 
066022 
066026 
066032 
066034 



066036 
066036 
066042 
066046 
0660S2 



066054 
066054 
066060 
066064 
066066 
066070 
066072 



066074 
066074 
066100 
066104 
066110 
066112 
066114 
066116 



lOONE ALL BYTES? 
iBR ir NO 
I RE TURN 



004737 065642' 
012701 066310' 
112721 000007 
110021 
000207 



012701 066310' 
112721 000010 
110011 
000207 



012700 066310' 

112720 000010 

112710 000200 
000207 



012701 064602' 

012700 000120 

105021 

005300 

003375 

000207 



012702 064602' 

012703 066152' 
012700 000010 
012322 
005300 
00337S 
000207 



I ♦ 



SETUP T20PK2 FOR URITE FQRHAT TRANSPORT REGISTER 



I INPUT: 



RO CONTAINS DRIVING DATA PATTERN 



T20UFMT: 

JSR PC.T20CLRBUF 

MOV «T200T2.R1 

nOVB «PU.UFnT.(Rl)» 

MOVB R0.CR1)» 

RTS PC 

SETUP T20PK2 PACKET FOR URITE HISC. 

RO CONTAINS URITE HISC DATA 



I CLEAR MESSAGE BUFFER 

I URITE SUBSYSTEM DATA BUFFER 

{STORE URITE FORMAT IN BSELO 

I STORE DATA UORD IN BSELl 

(RETURN 



i 
I 

I 



T20UMISC: 

MOV 
MOVB 
MOVB 
RTS 

! SETUP T20PK2 PACKET FOR URITE MISC. 
t - 



#T200T2.R1 

«PU.UMISC.(R1)* 

RO.CRl) 

PC 



T20SEXT : 



MOV *T200T2.R0 

MOVB •PU.UMISC.CRO)^ 

MOVB «MS.EXT.(RO) 

RTS PC 

TCLEAR EXPECTED DATA MESSAGE BUFFER 

f20CLEXP: 



I URITE SUBSYSTEM DATA BUFFER 

I STORE URITE MISCELLANEOUS IN BSELO 

(STORE INVERT EXTENDED FEATURES IN BSELl 

(RETURN 

INVERT EXTENDED FEATURES SUITCH 



(URITE SUBSYSTEM DATA BUFFER 
(STORE URITE MISCELLANEOUS IN BSELO 
(STORE INVERT EXTENDED FEATURES IN BSELl 
(RETURN 



MOV 


♦T20EXP.R1 


(GET EXPO ADDRESS 


MOV 


*T20EXEN0 - T20EXP . RO 


(GET EXPO SIZE 


CLRB 


(Rl)» 


(CLEAR A BYTE 


DEC 


RO 


(DONE? 


BGT 


101 


(BR IF NO 


RTS 


PC 


(RETURN 



lOt: 



(Set UORDS 0-7 of •Kpd 



T20SETEXP: 
MOV 
MOV 
MOV 

51: MOV 
DEC 
BGT 
RTS 



«T20EXP.R2 

«T20BFR.R3 

M..RO 

(R3)*.(R2)» 

RO 

SI 

PC 



BUFFER ■ to rttcv since not testing 



(GET EXPD 

(GET READ STATUS RECV BUFFER 

(SET UORDS 0-7 EXP-RECV 

(SET EXPD-RECV 

(DONE UORDS 0-7 UORDS? 

(BR IF NO 

(RETURN 



TSVS • HAMMME TESTS NACM Nil IS 
TEST «: REM>/URZTE DATA PMXTV TEST 



5729 




5730 




57S2 066120 




5734 




5735 




5736 




5737 066130 




S73a 066130 


100004 


5739 066132 


066140' 


5740 066134 


000000 


5741 066136 


000012 


5742 




5743 066140 




5744 066140 


066152' 


5745 066142 


000000 


5746 066144 


000024 


5747 066146 


000000 


5746 066150 


000007 


5749 




5750 




5751 




5752 




5753 066152 




5754 066152 


000000 


5755 066154 


000000 


5756 066156 


000000 


5757 066160 


000000 


5756 066162 


000000 


5759 066164 


000000 


5760 066166 


000000 


5761 066170 


000000 


5762 066172 




5763 066272 




5764 




5765 




5766 




5760 066272 




5770 066300 




5771 066300 


100006 


5772 066302 


066310' 


5773 066304 


000000 


5774 066306 


000012 


5775 




5776 066310 




5777 066310 


000 


57"»« 066311 


Olio 


5779 066312 


ooooco 


57S0 066314 




5781 




5702 




5703 066414 




066414 




066414 


104401 


5784 




5785 




5766 




5787 





Bl 



Ol-FEB-64 I7i02 



SEQ 208 



.BLKB 10-<.-TSV2e7> 



lURZTE CHARACTERISTICS COWAND PACKET 



T20PACKET: 

.UORO 
.KORO 
.UORO 
.UORO 



T200ATA! 



100004 

T200ATA 

0 

10. 



.UORO T20BFR 

.UORO 0 

.UORO 20. 

.UORO 0 

.UORO 7 



iC»71AN0 PACKET FOR TEST 

lURITE CHARACTERISTICS COmANO. WITH ACK 

lAOORESS OF CHARACTERISTICS BLOCK 

iHININUn HESSAGE PACKET SIZE 

iCHARACTERISTICS DATA BLOCK 
lAOORESS OF HESSAGE BUFFER 

I LENGTH OF HESSAGE BUFFER 

lESS.ENB.EAI.ERI 

lEXTENDED FEATURES UNIT NO. 



iHESSAGE BUFFER FOR ALL TEST 17 COMHANDS 



T20BFR: 

.UORO 0 

.UORO 0 

.UORO 0 

.UORO 0 

.UORO 0 

.UORO 0 

.UORO 0 

.UORO 0 

T20BFSTAi .BLKB 64. 

T20BEND: 



I BEGIN HESSAGE BUFFER 

iHESSAGE TYPE 

I DATA FIELD LENGTH 

iRBPCR 

iXSTO 

tXSTl 

|XST2 

tXST3 

|XST4 (ALUAYS PRESENT FOR k«ITE SUBSySTEH 
I READ STATUS AND URITE FIFO BUFFER 
lEND OF HESSAGE BUFFER 



lURITE SUBSYSTEH READ STATUS COHHANO PACKET 



T20PK2: 



T20DT2: 



.BLKB 10-<.*TSV2e7> 

.UORO P.URTSUBfP.ACK 

.UORO T200T2 

.UORO 0 

.UORO 10. 



.BYTE 0 

.BYTE 0 

.UORO 0 

.BLKB 64. 



(URITE SUBSYSTEH UITH ACK 
iLOU ADDRESS OF DATA BLOCK 
I HIGH ADDRESS OF DATA BLOCK 
iHINIHUH MESSAGE PACKET SIZE 

I DATA BLOCK 
iBSELO 
iBSELl 
iSEL2 

lURITE FIFO DATA OUTPUT BUFFER 



ENOTST 



L 10073: 



TRAP CtETST 
.SBTTL TEST 10: HANUAL INTERVENTION 
I THE HANUAL INTERVENTION TEST IS A STANDALONE ROUTINE (NOT fiEALLY A "TEST") 



ci 



01 -FEB 64 17:02 



SEQ 209 



5789 
5/90 
5791 
5792 
5795 
5794 
5795 
5796 
5797 
5798 
5799 
5800 
5801 
5802 
5803 
5804 
5805 
5806 
5807 
5808 
5809 
5810 
5811 
5812 
5813 
5814 
5815 
5816 
5817 
5818 
5819 
5820 
5821 
5822 
5823 
5824 
5825 
5826 
5827 
5828 
5829 
5830 
5831 
5832 
5833 
5834 
5835 
5836 
5837 
5838 
5839 
5840 
5841 
5842 
5843 
5844 



THAT ALLOyS THE OPERATOR TO CHECK OUT VARIOUS ELEMENTS AND FUNCTIONS Or 
THE SUeSYSTEH THAT CANNOT BE MANIPULATED BY THE PROGRAM ALONE. MCN 
THIS ROUTINE IS STARTED. IT FIRST PRINTS OUT A MENU OF SELECTABLE 
SUBTESTS AND THEN WAITS FOR THE OPERATOR TO TYPE IN A SELECTION CODE. 
THE ONLY WAYS TO EXIT THIS ROUTINE AND RETURN TO THE DIAGNOSTIC SUPERVISOR 
ARE BY TYPING <CTRL-C> OR SELECTING CODE 7. 
SELECTION CODES AND SUBROUTINES ARE: 

CODE ROUTINE 

0 HELP. PRINTS THIS MENU. 

1 TURN ON ALL M7455 LED INDICATORS 

2 TURN OFF ALL M7455 LED INDICATORS 

3 OFFLINE/ONLINE ATTENTION TEST 

4 URITE -PROTECT TEST 

5 INITIATE TRANSPORT SERVO EXERCISER 

6 PRINT EXTENDED TRANSPORT STATUS 

7 EXIT (RETURN TO SUPERVISOR) 

EACH MENU ITEM CORRESPONDS TO A SUBTEST. AS FQLLOUS: 



PRINTS OUT THE MENU ON THE CONSOLE TERMINAL. 



CAUSES ALL THREE LEO INDICATORS ON THE H7455 MU'HJLE 
TO BE ILLUMINATED. AFTER INITIATING THIS ROUTINE. THE OPERATOR 
SHOULD OBSERVE THE LEO'S AND VERIFY THAT THEY ARE INDEED ALL LIT. 
THIS ROUTINE FIRST USES THE WRITE SUBSYSTEM MEMORY COMMAND TO 
SET THE FORCE WRONG PARITY FLIP-FLOP. WHICH SERVES TO DRIVE THE 
"PROCESSOR NOT OK- LED. THEN IT ENTERS A LOOP THAT CONTINUALLY 
WRITES T»C LOU BYTE OF TSDB AND READS THE TSSR. THESE LATTER TWO 
OPERATIONS WILL CAUSE THE "NOT SSR" AND "DRIVING BUS" LED'S TO 
GLOW - - THEY ARE NOT REALLY LIT AT ALL TIMES BUT SHOULD APPEAR 
REASONABLY VISIBLE. 

INITIALIZES THE CONTROLLER TO CAUSE ALL LED'S TO 
EXTINGUISH. 



THIS ROUTINE INITIALIZES THE CONTRXLER. ISSUES A 
WRITE CHARACTERISTICS COMMAND TO ENABLE ATTENTION INTERRUPT*^. 
ISSUES A MESSAGE BUFFER RELEASE COMMAND. PRINTS A MESSAGE ON THE 
CONSOLE TERMINAL INSTRUCTING THE OPERATOR TO TOGGLE THE ON-LINE 
SWITCH ON THE TRANSPORT. THEN WAITS FOR AN ATTENTION INTERRUPT. 
EACH TIME THE TRANSPORT TRANSITIONS FROM ON-LINE TO OFF-LINE CR 
VICE-VERSA. AN ATTENTION INTERRUPT SHOULD BE GENERATED. THE PROGRAM 
WILL REPORT THE INTERRUPT AND THE CURRENT STATE OF THE TRANSPORT. 
THE OPERATOR SHOULD VERIFY THAT THE REPORTED STATE MATCHES THE 
SI ATE INDICATED BY THE LED ON THE FRONT PANEL OF THE TRANSPORT. 
IN ADDITION. WHEN THE TRANSPORT IS PLACED OFF-LINE. THE PROGRAM 



Dl 



SEQ 210 



5645 
5S46 
5847 
5«46 
5949 
5850 
5851 
5852 
585S 
5854 
5855 
5856 
5857 
5858 
5859 
5860 
5361 
5862 
5863 
5864 
5865 
5866 
5867 
5868 
5869 
5870 
5871 
5872 

5877 

5878 
5879 
5880 
5881 
5882 
5883 
5884 
5885 
5886 
5887 
5891 
5892 
5893 
5894 
5895 
5896 
5897 
5098 



066416 
066416 
066416 
066416 
066420 
066422 
066426 
066430 
066430 
066434 
066440 
066444 
066446 
066452 
066452 
066456 
066464 
066470 
066472 
066474 
066500 
066502 
066502 
066506 
0€Cj10 
Co65l4 
066516 
066522 
066524 
066530 



104421 
001403 
012700 
000402 

012700 
004737 
004737 
103402 
000137 

005037 
012737 
004737 
103427 
010001 
032701 
001023 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001567 



ISSUES A SEQUENCE OF TAPE -MOTION COTtlANOS (READ. WRITE. POSITION. ETC. 
AND VERIFIES THAT. FQR EACH COHHANO. FUNCTION REJECT TERMINATION 
RESULTS. ALONG WITH THE NON -EXECUTABLE FUNCTION (NEF) ERROR BIT BEING 
SET. 

THIS ROUTINE INSTRUCTS THE OPERATOR TO MOUNT A SCRATCH 
TAPE REEL THAT DOES NOT HAVE A WRITE -ENABLE RING INSTALLED. THEN 
WAITS FOR THE OPERATOR TO RESPOND THAT THIS HAS BEEN ACCOMPLISHED. 
UPON THE RESPONSE. THE PROGRAM VERIFIES THAT THE TRANSPORT SHOWS 
A WRITE -PROTECTED STATUS. THEN ATTEMPTS TO WRITE DATA ON THE 
TAPE AND EXPECTS THE APPROPRIATE ERROR TERMINATION INDICATING THAT 
THE WRITE FUNCTION COULD NOT BE PERFORMED BECAUSE THE REEL IS 
WRITE -PROTECTED. IF THE APPROPRIATE TERMINATION IS NOT RECEIVED. 
AN ERROR IS REPORTED. 



INSTRUCTS THE OPERATOR TO PLACE THE TAPE TRANSPORT(S) 
ON-LINE (IF ANY ARE OFF-LINE) THEN ATTEMPTS TO PERFORM AN EXTENDED 
STATUS READOUT. FOR EACH TRANSPORT EQUIPPED WITH THIS FEATURE. 
THE PROGRAM FORMATS AND PRINTS OUT THE RESULTING STATUS. IF THE 
TRANSPORT IS NOT EQUIPPED WITH THIS FEATURE. A MESSAGE INDICATING 
SUCH IS ISSUED. 







BGNTST 




TIO:: 






RFLAGS 


RO 


(GET OPERATOR FLAGS 

TRAP 






BEQ 


211 


iBR. IF OK TO RUN 


072000* 




MOV 


♦T38NE.R0 


i"TEST NOT EXECUTED" 






BR 


31 


;JUMP IF NOT FIRST TEST 




21»t 








073115' 




MOV 


♦T38ID.ro 


(TEST ID MESSAGE 


016322' 


SI: 


JSR 


PC.TSTSETUP 


(DO THE COMMON SETUP 


020320' 




JSR 


PC.CHKMAN 


lis MANUAL INTERVENTION ALLOWED? 






BCS 


221 


iBR. IF MANUAL INTER ALLOWED 


071200' 


221: 


JMP 


641 


iJUMP IF NOT ALLOWED 


002222' 


2<: 


CLR 


FATFLG 


1 CLEAR THE FATAL ERROR FLAG 


176750 071212' 




MOV 


•65000.. T380LY 


(SET UP DELAY COUNTER 


015604* 


SI: 


JSR 


PC.SOFINIT 


(DO A SOFT INIT 






BCS 


231 


i BRANCH IF OK 


oooeoo 




MOV 


RO.Rl 


(CONTENTS OF TSSR REGISTER 




BIT 


•SSR.Rl 


(CHECK FOR TSSR SET 






BNE 


231 


(KEEP GOING IF NOT SET 






DELAY 


250 


iCALL DELAY ROUTINE 



CIRFLA 



000250 


MOV 


•250. (PC) ♦ 




.WORD 


0 


002116' 


MOV 


L»DL>.(PC)- 




.WORD 


0 


177772 


DEC 


6(PC) 




BNE 


. -4 


177756 


DEC 


22(PC) 




BNE 


. 20 



El 



TSV5 - HARDWARE TESTS MACRO HlllS 
TEST 10: MANUAL INTERVENTION 



5899 
5900 
5901 



5902 
5903 
5904 
5905 
5906 
5907 
5906 
5909 
5910 
5911 
5912 
5913 
5914 
5915 



5916 
5917 
S91S 
5922 
5923 



5924 
5925 
5926 
5927 
5920 
5932 
5933 



5934 
5935 
5936 
5937 
5936 
5939 
5940 
5941 
5942 
5943 
5944 



066532 
066536 
066540 
066540 
066542 
066544 
066546 
066550 
066554 
066560 
066564 
066566 
066570 
066574 
066576 
066600 
066602 
066604 
066606 
066610 
066612 
066612 
066616 
066622 
066624 
066626 
066632 
066636 
066642 
066644 
066646 
066646 
066650 
066652 
066654 
066656 

066664 
066670 
066674 
066676 
066700 
066700 
066702 
066704 
066706 
066710 
066710 
066716 
066724 



066730 
066734 
066740 
066742 



005337 071212' 
001352 



104455 

001751 

003646* 

011644' 

012700 

012701 

004737 

010004 

006304 

000174 

066452' 

066612' 

067074' 

067326* 

067762' 

070716' 

071174* 



01-rEB-e4 17:02 



DEC 
BNE 
ERROF 



073142' 

000006 

020076* 



066574' 



23«: 



61: 



012746 
012746 
010600 
104417 
062706 
004737 
004737 
10S405 
010001 



073011' 
000001 



000004 

073546' 

015604' 



lOt: 



104455 

0017S2 

003646' 

011644' 

013737 002202' 071740* 1001; 

012704 071720' 
004737 010472' 
103405 
010001 

104456 

001753 
005052' 
011644* 



112737 000000 071231' 
112737 000011 071230* 
012704 071220* 



010465 000000 
004737 016146' 



not: 



MOV 

MOV 

JSR 

MOV 

ASL 

JMP 

. MORD 

.UORO 

.UORO 

.UORO 

.UORO 

.UORO 

.UORO 

PRINTF 



JSR 
JSR 
BCS 
MOV 



MOV 

MOV 
JSR 
BCS 
MOV ^ 
ERRHRO 



Move 

MOVE 

MOV 



T360LY 
5t 

ERRNO . SF lERR . SF IMSG 



4MIMENU.ro 

•6.R1 

PC.GETSEL 

R0.R4 

R4 

86I(R4) 

21 

101 

15t 

20t 

251 

351 

63t 

•T36MS2 



PC.T38REST 
PC.SOFINIT 

loot 

RO.Rl 

ERRNO . SF IFPO . SF IMSG 



UNITN.T360SU 

•T36PK2.R4 

PC.URTCHR 

1101 

RO.Rl 

ERM40 . URTMSG . SF IMSG 



40.TS68S1 

•11.T36BS0 

•T36PACKET.R4 



SEQ 211 



iBUMP COUNTER OOUN 
iBR. IF MORE TIME LEFT 
1 REPORT FATAL ERROR 

TRAP CIERDF 
.UORO 1001 
.UORO SFIERR 
.UORO SFIMSG 

MENU OF MANUAL INTERVENTIONS 

MAXIMUM ALLOUEO SELECTION 

GO GET TME OPERATORS SELECTION 

GET NUMBER FROM ROUTINE 

CONVERT TO UORO OFFSET 

JUMP TO PROPER LOOP 

RETYPE TME MENU 

1 TURN ON LEO'S 

2 TURN OFF LEO*S 

3 ONLINE ATTENTION 

4 URITE PROTECT 

5 EXTENDED TRANSPORT STATUS 

6 LEAVE TME TEST 

TELL OPERATOR TO CNTRL-C FOR EXIT 

MOV 
MOV 
MOV 
TRAP 
ADO 

I SET PACKET TO INITIAL VALUES 

tOO SOFT INIT OF CONTROLLER 

tBR IF SOFT INIT - OK 

I SAVE CONTENTS OF TSSR 

tOEVICE FATAL ERROR DURING INIT 

TRAP 
.UORO 
.UORO 
.UORO 

I SET UNIT NUMBER 



•T36MS2.-(SP) 
•l.-(SP) 
SP.RO 
CIPNTF 
•4.SP 



CIEROF 
1002 
SFIERR 
SFIMSG 



I SUBROUTINE NEEDS PACKET ADDRESS 

t ISSUE URITE CHARACTERISTICS 

iBR. IF COMMAND ISSUED OK 

(SAVE CONTENTS OF TSSR 

I URITE CHARACTERISTISC FAILED 

TRAP CIERHRO 
.UORO 1003 
.UORO URTMSG 
.UORO SFIMSG 



t CLEAR BIT «4 

I URITE MISC COMMAND 

tSET UP NEW URT. SUBSYS MEM. 



COMMAND 



iNOTE: THIS COMMAND TURNS ON THE PROCESSOR FAIL LED 



103405 
010001 



MOV 
JSR 
BCS 
MOV 



R4.TSD6(R5) 
PC.CMKTSSR 
150$ 
RO.Rl 



t SET THE PACKET ADDRESS 

I WAIT FOR SSR TO SET 

iBR IF CARRY SET (GOOD RETURN) 

(SAVE CONTENTS OF TSSR 



TSV5 - KAROUAPC TESTS MACRO HlllS 01 -FEB 84 17:02 
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5948 066744 










ERROF 


066744 


104455 










066746 


001754 










066750 


072416' 










066752 


011656' 










5949 066754 








150<: 


CKLOOP 


066754 


104406 










5950 066756 










SETPRI 


066756 


012700 


000540 








066762 


104441 










5951 066764 


005057 


071204' 






CLR 


5952 066770 


052757 


000100 


177560 




BIT 


5955 066776 


001005 








BNE 


5954 067000 


005257 


071204' 






INC 


5955 067004 


052757 


000100 


177560 




BIS 


5956 067012 


012701 


000060 




701 <: 


MOV 


5957 067016 


011157 


071206' 






MOV 


5956 067022 


012721 


070500' 






MOV 


5959 067026 


011157 


071210' 






MOV 


5960 067052 


012711 


000540 






MOV 


5961 067056 










SETPRI 


067056 


012700 


000000 








067042 


104441 










5962 067044 


012701 


177777 






MOV 


5965 067050 


000240 






121: 


NOP 


5964 067052 


012702 


001750 






MOV 


5965 067056 


110165 


000000 




141: 


MOVB 


5966 067062 


016500 


000002 






MOV 


5967 067066 


005502 








DEC 


5966 067070 


001572 








BNE 


5969 067072 


000766 








BR 


5970 












5971 067074 








151: 


PRINTF 


067074 


012746 


075011' 








067100 


012746 


000001 








067104 


010600 










067106 


104417 










067110 


062706 


000004 








5972 067114 


004757 


015604* 






JSR 


5973 067120 


105405 








BCS 


5977 067122 


010001 








MOV 


5976 067124 










ERRor 


067124 


104455 










067126 


001755 










067150 


005646' 










067152 


011644' 










5979 067154 








2001: 




5960 067154 


015757 


002202* 


071740* 




MOV 


5981 067142 


012704 


071720' 






NOV 


5982 067146 


004757 


010472' 






JSR 


5985 067152 


105405 








BCS 


5987 067154 


010001 








»<ov 

E^^^'lRO 


5988 067156 










067156 


104456 










067160 


001756 










067162 


005052* 










067164 


011644* 











Fi 



SEQ 212 



ERRNO. T58SSR.PKTSSR 



4PRI07 



TTI0N2 

*100.«*TTICSR 

701 » 
TTI0N2 

*100.8*TTICSR 

♦TTIVEC.Rl 

(R1).TVSAV2 

•5901. (RD* 

(R1).TPSAV2 

•PPI07.(Rl) 

4PRI00 



•-1.R1 

•1000. .R2 

R1.TSDB(R5) 

TSSR(R5).R0 

R2 

141 

121 

#T58MS2 



PC.SOFINIT 

200t 

RO.Rl 

ERRNO . SF TERR . SF IMSG 



UNITN.T580SU 

♦T5BPK2.R4 

PC.URTCHR 

2101 

ROJtl 

CMMO.URTNSG. SFIHSG 



•PRI07.ro 
CISPRI 



•PRIOO.RO 
CISPRI 



iDEVlCE FATAL SSR FAILED TO SET 

TRAP CIEROF 
.UORO 1004 
.WORD T58SSR 
.UORD PKTSSR 

iLOOP ON ERROR. IF FLAG SET 

TRAP CICLPI 

I RAISE THE PRIORITY 

MOV 

{ASSUME INTERRUPTS ARE ENABLED 
lARE TTI INTERRUPTS ON 7 
I BRANCH IF YES 
I FLAG SET IF INTERRUPTS OFF 
I ENABLE INTERRUPTS 
I START OF TTI VECTORS 
I SAVE THE CURRENT TTI VECTOR 
iSET NEW INTERRUPT ROUTINE 
tSAVE THE VECTOR PRIORITY 
I USE PRIORITY SEVEN 
tLOUER INTERRUPT BR LEVEL 

MOV 

TRAP 

iDATA TO WRITE TO TSOB 
I ALLOW OPERATOR TO TYPE *C 
I SET -UP INNER LOOP 
t WRITE DATA TO TSOB 
tREAO TSSR 
t REDUCE IIMER COUNT 
iLOOP TILL EXPIRES 
(LOOP UNTIL HALTED 

J TYPE CNTL C TO EXIT 

MOV •T58MS2. • 
MOV •l.-(SP) 
MOV SP.RO 
TRAP CIPNTF 
ADO •4.SP 

tOO SOFT INIT OF CONTRXLER 

}BR IF SOFT INJT • OK 

tSAVE CONTENTS OF TSSR 

i DEVICE FATAL ERROR DURING INIT 

TRAP CtEROF 
.WORD 1005 
.WORD SFibRR 
.WORD SFIMSG 

I SET UNIT NUMBER 

•SUBROUTINE NEEDS PACKET ADDRESS 

I ISSUE WRITE CHARACTERISTICS 

iBR. IF COMMAND ISSUED OK 

I SAVE CONTENTS OF TSSR 

I WRITE CHARACTERISTISC FAILED 

TRAP CtERHRO 
.WORD 1006 
.WORD WRTHSG 
.WORD SFIMSG 



(SP) 



Gl 
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SEO 213 



5989 
5990 
5991 
5992 
5995 
5994 
5995 
5996 
5997 
5998 
5999 
6000 
6001 
6005 



6006 
6007 



6008 
6009 
6010 
6011 
6012 
6013 
6014 
6015 
6016 
6017 
6018 



6019 
6020 
6021 
6022 
6023 



6024 



6025 
6026 
6027 
6031 
6032 



067166 
067166 
067174 
067202 
067206 
067212 
067216 
067220 
067222 
067222 
067224 
067226 
067230 
067232 
067232 
067234 
067234 
067240 
067242 
067246 
067254 
067256 
067262 
067270 
067274 
067300 
067304 
067310 
067314 
067314 
067320 
067322 
067324 



067326 
067326 
067332 
067336 
067340 
067342 
067346 
067346 
067352 
067354 
067360 
067364 
067366 
067370 
067370 
067372 
067374 



THIS MITE SUB-SYSTEN NEHORV COHHANO JUST HOLDS THE LEOS Off 



112737 000000 071231* 

112737 000025 071230* 

012704 071220' 

010465 000000 

004737 016146' 
103405 
010001 

104455 

001757 

072416' 

011656' 

104406 

012700 000340 
104441 

005037 071204' 

032737 000100 177560 
001005 

005237 071204' 

OS2737 000100 177560 

012701 000060 
011137 071206' 
012721 070500' 
011137 071210' 
012711 000340 

012700 000000 
104441 
000240 
000776 



012746 073011' 
012746 000001 
010600 
104417 

062706 000004 

012700 000000 
104441 

005037 002224* 
004737 0IS604' 
103405 
010001 

104455 
001760 
003646* 



210t: 



250«: 



7101: 



260t: 



20t: 



H0V8 


•0.TS8BS1 


laEAR BIT «4 


HOVB 


•25.TSaBS0 


tSTOP DRIVE TEST 22 


nov 


#T38PACKET.R4 


iSET UP NEW URT. SUBSYS MEN. COMMAND 


nov 


R4.TSDB(RS) 


iSET THE PACKET ADDRESS 


JSft 


PC.CHCTSSR 


iUAIT FOR SSR TO SET 


BCS 


250» 


iBR IF CARRY SET (GOOD RETURN) 


MOV 


RO.Rl 


iSAVE CONTENTS OF TSSR 


ERROF 


ERRNO. T38SSR.PKTSSR 


tOEVICE FATAL SSR FAILED TO SET 



CKLOOP 
SETPRI 



CLR 
BIT 



INC 
BIS 
MOV 
MOV 
MOV 
MOV 
MOV 
SETPRI 



NOP 
BR 



PRINTF 



8PRI07 



TTI0N2 

•100.8«TTICSR 

7101 

TTI0N2 

•lOO.StTTICSR 

•TTIVEC.Rl 

(R1).TVSAV2 

♦5901. (RD* 

(R1).TPSAV2 

«PRI07.(R1) 

•PRIOO 



260< 
•T38MS2 



SETPRI tfPRIOO 



CLR INTRECV 

JSR PC.SOFINIT 

BCS 300» 

MOV RO.Rl 

ERROF ERRNO. SFIERR.SFIMSG 



TRAP CSERDF 
.UORD 1007 
.WORD T38SSR 
.UORD PKTSSR 
I LOOP ON ERROR. IF FLAG SET 

TRAP CtCLPl 

tRAISE THE PRIORITY 

MOV 4PRI07.ro 
TRAP CISPRI 

I ASSUME INTERRUPTS ARE ENABLED 

I ARE TTI INTERRUPTS ON ? 

{BRANCH IF YES 

I FLAG SET IF INTERRUPTS OFF 

{ENABLE INTERRUPTS 

I START OF TTI VECTORS 

I SAVE THE CURRENT TTI VECTOR 

iSET NEU INTERRUPT ROUTINE 

iSAVE THE VECTOR PRIORITY 

iUSE PRIORITY SEVEN 

iLOUER INTERRUPT BR LEVEL 

MOV «PRIOO.RO 
TRAP C<SPRI 

I ALLOW CNTL C 
(LOOP UNTIL STOPPED 



I TELL 'EM UHAT TO TYPE 

MOV #T38MS2.-(SP) 
MOV n.-CSP) 
MOV SP.RO 
TRAP CIPNTF 
AOO #4 SP 

iLOUER PRIORITY TO ALLOW INTERRUPTS 

MOV tfPRIOO.RO 
TRAP CtSPRI 

I CLEAR INTERRUPT RECEIVED FLAG 

iDO SOFT INIT OF CONTRXLER 

iBR IF SOFT INIT - OK 

{SAVE CONTENTS OF TSSR 

{DEVICE FATAL ERROR DURING INIT 

TRAP C«ERDF 
.WORD 1008 
.WORD SFIERR 



HI 
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067376 


011644' 












6053 067400 








3001: 






6034 067400 


01373^ 


002202' 


071740* 




NOV 


UNITN.T36DSU 


6035 067406 


012737 


000040 


071736* 




NOV 


MIT5.T36EAI 


6036 067414 


012704 


071720' 






NOV 


«T36PK2.R4 


6037 067420 


004737 


010472' 






JSR 


PCrURTCHR 


6036 067424 


103405 








BCS 


310$ 


6042 067426 


010001 








hOV 


RO.Rl 


6043 067430 










ERRHRO 


ERRNO • URTNSG • SFINSG 


067430 


104/56 












067432 


001.61 












0674?* 


005052' 












06743e 


011644' 












6044 067440 








3101: 






6045 067440 


012704 


071750' 






NOV 


♦T36PK5.R4 


6046 067444 


010465 


000000 






NOV 


R4.TS0B(R5) 


6047 067450 


004737 


016060' 






JSR 


PC.WAITF 


6046 067454 


005002 








CLR 


R2 


6049 067456 


016501 


000002 






NOV 


TSSR(R5),R1 


6050 067462 


032701 


000100 






BIT 


♦OFL.Rl 


6051 067466 


001402 








BEQ 


320$ 


6052 067470 


052702 


000100 






BIS 


♦GFL.R2 


6053 067474 


052702 


000200 




3201; 


BIS 


«SSR.R2 


6054 067500 


020201 








CMP 


R2,R1 


6055 067502 


001404 








BEQ 


350$ 


6059 067504 










ERRHRD 


ERRNO • T 36SS T , PK T SSR 


067504 


104456 












067506 


001762 












067510 


072626' 












067512 


011656' 












6060 067514 








3501: 


CKLOOP 




067514 


104406 












6061 067516 










PRINTF 


•T36NS1 


067516 


012746 


072716* 










067522 


012746 


000001 










067526 


010600 












067530 


104417 












067532 


062706 


000004 










6062 067536 










PRINTF 


•r36NS2 


067536 


012746 


073011' 










067542 


012746 


000001 










067546 


010600 












067550 


104417 












067552 


062706 


000004 










6063 067556 










SETPRI 


6PRI07 


067556 


012700 


000340 










067562 


104441 












6064 067564 


005037 


071204' 






CLR 


TTI0N2 






UUUIUO 


1773O0 




OTT 


#100l*VI I IwSR 


6066 067576 


001005 








BNE 


720* 


6067 067600 


005237 


071204' 






INC 


TTI0N2 


6066 067604 


052737 


000100 


177560 




BIS 


*1OO,0*TTICSR 


6069 067612 


012701 


000060 




7201: 


MOV 


♦TTIVEC.Rl 


6070 067616 


011137 


071206* 






NOV 


CR1).TVSAV2 


6071 06T622 


012721 


070500* 






MOV 


«590>.(R1)» 


6072 067626 


011137 


071210- 






NOV 


(R1).TPSAV2 


6073 067632 


012711 


000340 






NOV 


•PRI07.CRI) 



SEQ 214 



.WORD SFXMSG 

I SET UNIT NUnBER IN PACKET 

lENABLE ATTENTION INTERRUPTS 

I SUBROUTINE NEEDS PACKET AOO(<ESS 

I ISSUE WRITE CHARACTERISTICS 

I BR. IF COMHANO ISSUED OK 

iSAVE CONTENTS OF TSSR 

lURITE CHARACTERISTISC FAILED 

TRAP CtERHRD 
.WORD 1009 
.WORD WRTnSG 
.WORD SFIHSG 

I SET UP NEW PACKET FOR HESS BUF REL 
iHESSAGE BUFFER RELEASE. ACK.CVC-1 CHD 
J WAIT FOR SSR TO SET 
I HAKE SURE ALL IS CLEAR 
iGET TSSR STATUS 
lis OFL SET 

tBR. IF OFL IS NOT SET 

;SET OFL IN EXPECTED 

t SET UP EXPECTED 

lis EVERYTHING OK 

iBR. IF ALL IS WELL 

I DEVICE FATAL SSR FAILED TO SET 

TRAP CtERHRD 
.WORD 1010 
.WORD TS6SST 
.WORD PKTSSR 

iLOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 

I TELL OPERATOR TO TOGGLE SWITCH 

HOV tTSaHSL-CSP) 
HOV #1.-CSP) 
HOV SP.RO 
TRAP CIPNTF 
ADD #4 SP 

I TELL OPERA) OR TO DO *C TO EXIT 

HOV •T3«HS2.-(SP) 
HOV •l.-CSP) 
HOV SP.RO 
TRAP CIPNTF 
ADD «4.SP 

t RAISE THE PRIORITY 

HOV 4PRI07.R0 
TRAP CtSPRI 

lASSUHE INTERRUPTS ARE ENABLED 

I ARE TTI INTERRUPTS ON ? 

{BRANCH IF YES 

I FLAG SET IF INTERRUPTS OFF 

lENABLE INTERRUPTS 

I START OF TTI VECTORS 

I SAVE THE CURRENT TTI VECTOR 

iSET NEW INTERRUPT RQiJTINE 

I SAVE THE VECTOR PRIORITY 

tUSE PRIORITY SEVEN 



II 
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6074 



6075 
6076 
6077 
6076 
6079 



6060 
6061 
6062 
6063 



6064 
6065 



6066 
6067 
6066 



6069 

6090 
6091 
6092 
6093 
6094 
6095 
6099 
6100 



6101 

6102 
6103 



067636 
067636 
067642 
067644 
067646 
067652 
067654 
067656 
067656 
067662 
067666 
067670 
067672 
067676 
067702 
067706 
067710 
067710 
067714 
067720 
067722 
067724 
067730 
067732 
067732 
067736 
067742 
067744 
067746 
067752 
067756 
067762 
067762 
067764 
067766 
067770 
067772 
067774 
067776 
067776 
067776 
070000 
070004 
070006 
070012 
070012 
070016 
070020 
070022 
070022 
070024 
070026 
070030 
070032 
070032 
070034 
070042 



012700 000000 

104441 

000240 

005737 002224' 

001001 

000773 

012746 072506' 
012746 000001 
010600 
104417 

062706 000004 
016501 000002 
032701 000100 
001011 

012746 072536' 
012746 000001 
010600 
104417 

062706 000004 
000410 

012746 072572' 
012746 000001 
010600 
104417 

062706 000004 
005037 002224' 
000137 067400' 

104443 
000404 
073544' 

000120 

073055' 

177777 



103371 

005737 073544' 
0ni002 

0^0137 066452* 

004737 015604' 

103405 

010001 

104455 
001763 
003646' 
011644' 

104406 

013737 002202' 071740* 
012704 071720* 



360(: 



3601: 



3901: 
251: 



271: 



400t: 



SETPRI «PRI00 



NOP 
TST 
BNE 
BR 



INTRECV 
3701 
3601 



370( : PRINTF «T36INT 



MOV 
BIT 
BNE 



TSSR(R5).R1 
«0FL.R1 
360( 



PRINTF •T360NL 



BR 3901 
PRINTF •T36GFL 



CLR INTRECV 
JMP 3001 

GMANIL T36nSG. T36DAT.-1.no 



BNC0rff>LETE 251 



TST 
BNE 
JMP 



T360AT 

271 

2( 



JSR PC.SOFINIT 

BCS 4001 

nOV RO.Rl 

ERRDF ERRNO.SFIERR.SFIHSG 



CKLOOP 

MOV 
MOV 



UNITN.T38DSU 
•T38PK2.R4 



SEQ 215 



iLOUER INTERRUPT BR LEVEL 

MOV 
TRAP 

t ALLOW CONTROL C 
I DID AN INTERRUPT OCCUR ? 
I BRANCH IF YES 

I WAIT SOME MORE FOR INTERRUPT 
{"INTERRUPT RECEIVED" 

MOV 
MOV 
MOV 
TRAP 
ADD 

tREAD TSSR STATUS 
iCHECK THE OTP -LINE BIT 
I BR. IF DRIVE IS OFF-LINE 
{"DRIVE IS NOW ON-LINE" 

MOV 
MOV 
MOV 
TRAP 
ADO 

{ALMOST DONE 

{"DRIVE IS NOW OFF-LINE" 

MOV 
MOV 
MOV 
TRAP 
ADD 

{CLEAR INTERRUPT FLAG 
{TRY AGAIN 

{WAIT FOR OPERATOR TO MOUNT TAPE 

TRAP 
BR 

.WORD 
.WORD 
.WORD 
.WORD 



•PRIOO.RO 
C$SPRI 



♦T361NT.-(SP) 
♦l.-(SP) 
SP.RO 
C»PNTF 
♦4.SP 



♦T360NL.-(SP) 
♦l.-(SP) 
SP.RO 
CIPNTF 
•4.SP 



100001: 



«T360FL. 
•l.-(SP) 
SP.RO 
C$PNTF 
«4.SP 



CIGMAN 
100001 
T36DAT 
TtCODE 
T36MSG 
-1 



{RETRY IF ERROR 

{DID OPERATOR SAY 'YES' 
{BRANCH IF YES 
{RETURN TO MAIN MENU 



BCC 

? 



251 



(SP) 



(DO SOFT INIT OF CONTROLLER 

{BR IF SOFT INIT - OK 

{SAVE CONTENTS OF TSSR 

{DEVICE FATAL ERROR DURING INIT 

TRAP CtERDF 
.WORD 1011 
.WORD SFIERR 
.WORD SFIMSG 

{LOOP IF SELECTED 

TRAP CtCLPl 

{SET UNIT NUMBER 

{SUBROUTINE NEEDS PACKET ADDRESS 



Jl 



TSV5 ' HARDWARE 


TESTS 


KACRO H1113 01 


FEB -84 


17:02 




TEST 10 


: MANUAL 


INTERVENTION 








6104 


070046 


004757 


010472* 




JSR 


PC.URTCHR 


6105 


070052 


103405 






BCS 


4101 


6109 


070054 


01*^1 






nov 


RO.Rl 


6110 


070056 








ERRHRO 


ERRNO . i4RTMSG . SF IMSG 




070056 


104456 












070060 


001764 












070062 


005052' 












070064 


011644' 










6111 


070066 






410$: 


CKLOOP 






070066 


104406 










6112 


070070 


013701 


071244* 




NOV 


T38BFR«6,R1 


6113 


070074 


010102 






MOV 


R1.R2 


6114 


070076 


052702 


000004 




BIS 


«6IT2,R2 


6115 


070102 


020102 






CMP 


R1.R2 


6116 


070104 


001406 






BEQ 


4301 


6120 


070106 








ERRHRO 


ERRNO . T38URL • EXPREC 




070106 


104456 












070110 


001765 












070112 


072234' 












070114 


015304' 










6121 


070116 


005237 


002222' 




INC 


FATFLG 


6122 


070122 






4301: 


CKLOOP 






070122 


104406 










6123 


070124 


005737 


002222' 




TST 


FATFLG 


6124 


070130 


001402 






BEQ 


4351 


6125 


070132 


000137 


066452' 




JMP 


21 


6126 


070136 


017737 


112762 071772' 


4351: 


MOV 


8FREE.T38UR 


6127 


070144 


012704 


071770' 




MOV 


*T38PK4.R4 


6128 


070150 


010465 


000000 




MOV 


R4.TS0BCR5) 


61M 


070154 


004737 


016060' 




JSR 


PC.UAITF 


6130 


070160 


016501 


000002 




MOV 


TSSRCR5),R1 


6131 


070164 


012702 


100206 




MOV 


#SC!SSR!BIT1!BIT2.R2 


6132 


070170 


020102 






CMP 


R1,R2 


6133 


070172 


001404 






BEQ 


4401 


6137 


070174 








ERRHRO 


ERRNO • T36WRT .PKTSSR 




070174 


104456 










070176 


001766 












070200 


072150' 












070202 


011656' 










6138 


070204 






4401: 


CKLOOP 






070204 


104406 










6139 


070206 


013701 


071244' 




MOV 


T38BFR»6.R1 


6140 


070212 


010102 






MOV 


R1.R2 


6141 


070214 


052702 


004000 




BIS 


#BIT11.R2 


6142 


070220 


020102 






CMP 


Rl,R2 


6143 


070222 


AAA 
Uwl#04 






BEQ 


4501 


6147 


070224 








ERRHRO 


ERRNO • T36ULE • EXPREC 




070224 


104456 










070226 


001767 












070230 


072275* 












070232 


015304' 










6148 


070234 






4501: 


CKLOOP 






070234 


104406 










6149 


070236 


000137 


066452* 




JMP 


2$ 



6150 
6151 
6152 



SEQ 216 



tissue URITE CHARACTERISTICS 

I BR. IF COmANO ISSUEO OK 

I SAVE CONTENTS OF TSSR 

lURITE CHARACTEftlSTISC FAILED 

TRAP CIERHRD 
.WORD 1012 
.UORD URTnSG 
.WORD SFinSG 

•LOOP IF SELECTED 

TRAP CfCLPl 

I PICK UP XSTO CONTENTS 

tSET UP EXPECTED 

I SET UP THE URITE LOCKED BIT 

tARE THEY CORRECT 

tBR. IF ALL IS UELL (OK) 

t "URITE LOCKED BIT IS NOT SET ETC." 

TRAP CtERHRD 
.WORD 1013 
.UORD TSaURL 
.UORD EXPREC 

tSET FATAL FLAG 
iLOOP IF SELECTED 

TRAP CtCLPl 
lUAS THE DRIVE NOT URITE LOCKED 
tBR. IF FLAG NOT SET 
tRE -URITE MENU 

tSET UP URITE BUFFER ADDRESS 

tGET PACKET ADDRESS 

tSET THE PACKET ADDRESS 

tUAIT FOR SSR TO SET 

iGET TSSR 

I SET UP EXPECTED 

tARE THEY EQUAL (CORRECT) 

tBR. IF CORRECT STATUS 

t"TSSR INCORRECT AFTER URITE COHHAND 

TRAP CtERHRD 
.UORD 1014 
.UORD T38URT 
.UORD PKTSSR 

tLOOP ON ERROR. IF FLAG SET 

TRI» CICLPl 

tREAO XSTO CONTENTS 
tSET UPR EXPECTED 

tSET THE URITE LOCK ERROR BIT (XSTO) 

tUAS THE BIT SET 

tBR. IF IT UAS (GOOD) 

t "URITE LOCK ERROR BIT NOT SET" 

TRAP OERHRO 
.UORD 1015 
.UORD T38ULE 
.UORD EXPREC 

tLOOP IF SELECTED 

TRAP C»CLP1 

tGO BACK TO MENU 



SERVO EXERCISER NO LOTJGER USED 



Kl 
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SEQ 217 



6153 
6154 
6155 



6156 
6157 
6156 
6162 
6163 



6164 
6165 
6166 
6167 
6171 
6172 



6173 
6174 
6175 
6176 
6177 
6176 
6179 
6160 
6164 



6165 
6166 



6167 
6166 
6169 
6190 
6191 
6192 
6193 
6194 
6195 
6196 
6197 



070242 
070242 
070242 
070246 
070252 
070254 
070256 
070262 
070266 
070272 
070274 
070276 
070276 
070300 
070302 
070304 
070306 
070314 
070320 
070324 
070326 
070330 
070330 
070332 
070334 
070336 
070340 
070340 
070346 
070354 
070360 
070364 
070370 
070372 
070374 
070374 
070376 
070400 
070402 
070404 
070404 
070406 
070406 
070412 
070414 
070420 
070426 
070430 
070434 
070442 
070446 
070452 
070456 
070462 
070466 
070466 



30ti 



5101: 



012746 072055' 
012746 000001 
010600 
104414 

062706 000004 
004737 073546' 
004737 015604' 
103405 
010001 

104455 
001770 
003646' 
011644' 

013737 002202' 071740' 500«: 

012704 071720' 

004737 010472' 

103405 

010001 



104456 

001771 

005052' 

011644' 

112737 000000 071231' 
112737 000020 071230' 
012704 071220' 
010465 000000 
004737 016146' 
103405 
010001 

104455 

001772 

072416' 

011656' 

104406 

012700 000340 
104441 

005037 071204' 

032737 000100 177560 
001005 

005237 071204- 

052737 000100 177560 

012701 000060 
011137 071206' 
012721 070500' 
011137 071210' 
012711 000340 

012700 000000 



5501: 



5551: 



PRINTS *T36HS3 



JSR PC.T36REST 

JSR PC.SOFZNIT 

BCS 500$ 

nOV RO.Rl 

ERRDF ERRNO.SFIERR.SFIMSG 



MOV UNITN.T360SU 

nOV •T36PK2.R4 

JSR PC.URTCHR 

BCS 510t 

nOV RO.Rl 

ERRHRO ERRNO.URTMSG.SFIMSG 



{"EXE ANY OTHER MENU SELECTION TO STOP 



nov 
nov 
nov 

TRAP 
ADD 

I SET PACKET TO INITIAL VALUES 

I DO SOFT INIT OF CONTROLLER 

I BR IF SOFT INI1 - OK 

iSAVE CONTENTS OF TSSR 

iDEVICE FATAL ERROR DURING INIT 

TRAP CtERDF 
.UORD 1016 
.WORD SFIERR 
.UORD SFinSG 

I SET UNIT NUMBER 

t SUBROUTINE NEEDS PACKET ADDRESS 

I ISSUE URITE CHARACTERISTICS 

iBR. IF COrtlAND ISSUED OK 

I SAVE CONTENTS OF TSSR 

I URITE CHARACTERISTISC FAILED 

TRAP 
.UORD 
.UORD 
.UORD 



•T36nS3.-(SP) 
•l.-(SP) 
SP.RO 
CtPNTB 
•4.SP 



CtERHRD 
1017 
URTMSG 
SFIMSG 



MOVB 


«0.T36BS1 


1 CLEAR BIT #4 


MOVE 


#20.T36BS0 


{EXECUTE DRIVE TEST 22 


MOV 


♦T36PACKET.R4 


tSET UP NEU URT. SUBSYS MEM. COMMAND 


MOV 


R4.TS0B(R5) 


iSET THE PACKET ADDRESS 


JSR 


PC.CMCTSSR 


J WAIT FOR SSR TO SET 


BCS 


550$ 


iBR IF CARRY SET (GOOD RETURN) 


MOV 


RO.Rl 


tSAVE CONTENTS OF TSSR 


ERRDF 


ERRN0.TS6SSR.PKTSSR 


i DEVICE FATAL SSR FAILED TO SET 



CKLOOP 
SETPRI 



CLR 
BIT 
BNE 
INC 
BIS 
MOV 
MOV 
MOV 
MOV 
MOV 
SETPRI 



•PRI07 



TTI0N2 

*100.9*TTICSR 

555$ 
TTI0N2 

•1OO.0»TTICSR 

♦TTIVEC.RI 

(Rl).TVSAV2 

•590$. CRD* 

(R1).TPSAV2 

•PRI07.CR1) 

•PRIOO 



TRAP C$ERDF 
.UORD 1016 
.UORD T38SSR 
.UORD PKTSSR 
iLOOP ON ERROR. IF FLAG SET 

TRAP C$CLP1 

{RAISE THE PRIORITY 

MOV •PRI07.R0 
TRAP CISPRI 

{ASSUME INTERRUPTS ARE ENABLED 

{ARE TTI INTERRUPTS ON ? 

{BRANCH IF YES 

{FLAG SET IF INTERRUPTS OFF 

{ENABLE INTERRUPTS 

{START OF TTI VECTORS 

{SAVE THE CURRENT TTI VECTOR 

{SET NEU INTERRUPT ROUTINE 

{SAVE THE VECTOR PRIORITY 

J USE PRIORITY SEVEN 

(LOUER INTERRUPT BR LEVEL 

MOV »PRIOO.RO 



Li 
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6198 
6199 
6200 
6201 
6202 
620S 
6204 
6205 
6206 
6207 
6206 
6209 
6210 
6211 
6212 
6213 
6214 
6215 
6216 
6217 
6216 
6219 
6220 
6221 
6222 



6223 
6224 
6225 
6226 
6227 
6231 



6232 

6233 
6234 
6235 
6236 
6237 
6236 
6239 
6240 
6241 
6245 
6246 



070472 
070474 
070476 



070500 
070502 
070506 
070512 
070516 
070520 
070526 
070532 
070540 
070546 
070554 
070562 
070566 
070572 
070600 
070604 
070610 
070614 
070616 
070616 
070622 
070624 
070630 
070632 
070636 
070640 
070644 
070646 
070652 
070654 
070660 
070662 
070664 
070664 
070666 
070670 
070672 
070674 
070674 
070676 
070702 
070704 
070712 
070714 
070716 
070716 
070722 
070726 
070730 
070732 



104441 
000240 
000776 



010046 
113700 
042700 
122700 
001075 
012766 
005066 
013737 
013737 
112737 
112737 
012704 
010465 
012737 
004737 
016501 
032701 
001017 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001352 
004737 
103405 
010001 

104455 
001773 
072416' 
011656* 



S60>: 



NOP 
BP 



177562 
000200 
000015 

066452' 
000004 

071206' 

071210' 

000025 

000000 

071220' 

000000 

176750 

016060' 

000002 

000200 



000250 

002116' 

177772 

177756 

071212' 

016146' 



560* 

IpROCESS CONSOLE INTERRUPTS 

8 ' 

590»: 



(LOOP AUHILE 

I STAY IN "TIGHT" LOOP 



TRAP 



SEQ 218 



CtSPRI 



000002 

000060 
000062 
071250' 
071231' 



071212' 



592t: 



595>: 



5601: 



104406 

005737 071204' 
001403 

042737 000100 177560 
012600 591>: 
000002 

35>: 

004737 073546' 
004737 015604' 
103405 
010001 



HUV 


D/^ f CD ^ 


;bAVc IaOHK RtGISTER 


nuvB 


Vv 1 1 lor H » HO 


iGcT THE OrtRATOH INPUT 






t^TRIP OFF PARTTY RTT 


CMPB 


♦IS.RO 


lis IT A CARRIAGE RETURN ? 


BNE 


591* 


iJUST EXIT IF NOT 


MOV 


«2t.2(SP) 


i RETURN TO MASTER MENU 


CLR 


4(SP) 


J FORCE PRIORTY 0 


MOV 


TVSAV2.MTTIVEC iRESTORE 


; VECTOR 


MOV 


TPSAV2.8^TTIVEC»2 


iRESTORE SUPER PRIORTY 


MOVB 


«2S.T38BS0 


iSTOP DRIVE TEST 22 


MOVB 


•0.T36BS1 


i CLEAR BSi 


MOV 


•T38PACKET.R4 


iSET UP NEW URT. SUBSYS MEM. 


MOV 


R4.TSD6(R5) 


iSET THE PACKET ADDRESS 


MOV 


♦65000. .TSBDLY 


iSET UP DELAY COUNTER 


JSR 


PC.WAITF 


tOO A UAIT FOR SSR 


MOV 


TSSR(R5).R1 


t CONTENTS OF TSSR REGISTER 


BIT 


♦SSR.Rl 


J CHECK FOR TSSR SET 


BNE 


595» 


iKEEP GOING IF NOT SET 


DELAY 


250 


;CALL DELAY ROUTINE 



COMMAND 



DEC T38DLY 

BNE 592$ 

JSR PC.CMKTSSR 

BCS 580 > 

MOV RO.Rl 

ERROr ERRN0.T36SSR.PKTSSR 



MOV 
.UORD 
MOV 
.UORD 
DEC 
BNE 
DEC 
BNE 

:BUMP COUNTER DOWN 
;BR. IF MORE TIME LEFT 
:UAIT FOR SSR TO SET 
iBR IF CARRY SET (GOOD RETURN) 
:SAVE CONTENTS OF TSSR 
{DEVICE FATAL SSR FAILED TO SET 

TRAP 
.UORD 
.WORD 
.UORD 



♦250.(PC)» 
0 

L$DLY.(PC)» 
0 

-6(PC) 
.-4 

-22(PC) 
.-20 



CKLOOP 




;LOOP ON ERROR. IF FLAG SET 






TRAP 


TST 


TTI0N2 


:ARE SUPER INTERRUPTS ENABLED 


BEQ 


591$ 


sBR. IF YES 


BIC 


«100.8«TTICSR 


; RESTORE REGISTER 


MOV 


(SP)».R0 


iRESTORE REGISTER 


RTI 




(RETURN 


JSR 


PC.T38RfcST 


J SET PACKET TO INITIAL VALUES 


JSR 


PC.SOFINIT 


iDO SOFT INIT OF CONTROLLER 


BCS 


600$ 


jBR IF SOFT INIT - OK 


MOV 


RO.Rl 


J SAVE CONTENTS OF TSSR 


ERROF 


ERRM3 . SF lERR . CF IMSG 


iDEVICE FATAL ERROR DURING INIT 



C»ERDF 
1019 
T36SSR 
PKTSSR 

CtCLPl 
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070732 


104455 














070734 


001774 














070736 


003646' 














070740 


011644' 












6247 


070742 








6001: 


CKLOOP 






070742 


104406 












6246 


070744 


012701 


071236' 






MOV 


♦T36BFR,R1 


6249 


070750 


012702 


125252 






nov 


«125252.R2 


62S0 
















6251 


070754 


010221 






601$: 


MOV 


R2.CR1)* 


6252 


070756 


022701 


071712' 






CMP 


«T38EB.R1 


6253 


070762 


001401 








BEQ 


605$ 


6254 


070764 


000773 








BR 


601$ 


6255 


070766 


013737 


002202' 


071740' 


605$: 


MOV 


UNITN.T38DSW 


6256 


070774 


012704 


071720' 






MOV 


*T36PK2.R4 


6257 


071000 


004737 


010472' 






JSR 


PC.WRTCHR 


6256 


071004 


103405 








BCS 


610$ 


6262 


071006 


010001 








MOV 


RO.Rl 


6263 


071010 










ERRHRO 


ERRNO . URTMSG • SF IMSG 




071010 


104456 














071012 


001775 














071014 


005052' 














071016 


011644' 












6264 


071020 








610$: 


CKLOOP 






071020 


104406 












6265 


071022 


112737 


000000 


071231' 




MOVB 


«0.T36BS1 


6266 


071030 


112737 


000024 


071230' 




MOVB 


^24,T36BS0 


6267 


071036 


012704 


071220* 






MOV 


^T36PACKET,R4 


6266 


071042 


010465 


000000 






MOV 


R4.TSDB(R5) 


6269 


071046 


012737 


000144 


071212' 




MOV 


^100. •T360LY 


6270 


071054 


004737 


016060' 




620$: 


JSR 


PC.WAITF 


6271 


071060 


016501 


000002 






MOV 


TSSR(R5).R1 


6272 


071064 


032701 


000200 






BIT 


^SSR.Rl 


6273 


071070 


001017 








B^C 


630$ 


6274 


071072 










DELAY 


250 




071072 


012727 


000250 












071076 


000000 














071100 


013727 


002116' 












071104 


000000 














071106 


005367 


177772 












071112 


001375 














071114 


005367 


177756 












071120 


001367 












6275 


071122 


005337 


071212' 






DEC 


T36DLY 


6276 


071126 


001352 








SHE 


620$ 


6277 


071130 


004737 


016146' 




630$: 


JSR 


PC.CHKTSSR 


6278 


071134 


103405 








BCS 


650$ 




071136 


010001 








MOV 


RO.Rl 


6263 


071140 










ERROF 


ERRNO. T36SSR . PKTSSR 




071140 


104455 












071142 


001776 














071144 


072416* 














071146 


011656' 












6264 


071150 








650$: 


CKLOOP 






071150 


104406 












6265 


071152 


012700 


071256' 






MOV 


«T38BFR«20.R0 


6266 


071156 


005001 








CLR 


Rl 



SEQ 219 



TRAP CIEROF 
.WORD 1020 
.•JORO SFIERR 
.WORD SFINSG 

;LOOP IF SELECTED 

TRAP CICLPl 
{ADDRESS OF MESSAGE BUFFER 
i ALTERNATING I'S AND O'S 

i CLEAR OUT THE MESSAGE BUFFER 

J END OF BUFFER YET 

;BR, IF AT END OF BUFFER 

iNOT AT END KEEP GOING 

;SET UNIT NUMBER 

(SUBROUTINE NEEDS PACKET ADDRESS 

; ISSUE WRITE CHARACTERISTICS 

sBR. IF COMMAND ISSUED OK 

:SAVE CONTENTS OF TSSR 

t WRITE CHARACTERISTISC FAILED 

TRAP CIERHRD 
.WORD 1021 
.WORD WRTMSG 
.WORD SFIMSG 

sLOOP IF SELECTED 

TRAP CICLPl 

i CLEAR BIT «4 

:READ EXTENDED DRIVE STATUS 

:SET UP NEW WRT. SUBSYS MEM. COMMAND 

iSET THE PACKET ADDRESS 

I SET UP DELAY ROUTir« 

sWAIT AWHILE FOR SSR TO SET 

;SEE IF IT REALLY DID 

:JUST CHECK THAT BIT 

:BR. IF SSR IS SET 

t DELAY ABOUT .25 SEC 

MOV «2S0,(PC)» 
.WORD 0 

MOV L»DLY,(PC)» 

.WORD 0 

DEC -6(PC) 

BNE .-4 

DEC -22(PC) 

BHE . -20 

: START DELAY COUNT DOWN 

tBR. IF COUNTER IS NOT AT DONE 

I WAIT FOR SSR TO SET 

:BR IF CARRY SET (GOOD RETURN) 

J SAVE CONTENTS OF TSSR 

iDEVICE FATAL SSR FAILED TO SET 

TRAP CIEROF 
.WORD 1022 
.WORD T38SSR 
.WORD PKTSSR 

;LOOP ON ERROR. IF FLAG SET 

TRAP C»CLP1 

{MESSAGE BUFFER ADDRESS 

I NO HIGH ORDER ADDRESS BITS 



Nl 
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6287 
6286 
6289 
6290 
6291 
6292 
6293 



6294 
6295 
6296 
6297 
6298 
6299 
6300 
6301 
6302 
6303 
6304 
6305 
6306 
6307 
6308 
6309 
6311 
6313 
6314 
6315 
6316 
6317 
6318 
6319 
6320 
6321 
6322 
6323 
6324 
6325 
6326 
6328 
6330 
6331 
6332 
6333 
6334 
6335 
6336 
6337 
6338 
6339 
6340 
6341 
6342 
6S44 
6346 
6347 



071160 
071164 
071170 



071174 
071200 
071200 
071202 



071204 
071206 
071210 

071212 
071214 
071220 
071220 
071222 
071224 
071226 
071230 
071230 
071231 
071232 
071234 
071236 
071712 



071714 
071720 
071720 
071722 
071724 
071726 



071730 
071730 
071732 
071734 
071736 
071740 
071742 
071750 
071752 



005037 003134' 
004737 073604' 
000157 066452' 



000137 000200 
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CLR 
JSR 
JMP 



SEQ 220 



104432 
003054 



6Si: 
64>: 



JMP 
EXIT 



KTENA8LE 

PC.T38MBP 

2» 



200 
TST 



000000 
000000 
000000 

000000 



140006 

071230' 

000000 

000012 

000 
000 
000000 
000000 

000000 



140004 
071730* 
000000 
000012 



071236' 

000000 

000400 

000000 

000000 

140212 
000000 



»N0 KTll STUFF EITHER 

J GO PRINT MESSAGE BUFFER CONTENTS 

iGO BACK TO MENU 



{REALLY RETURN TO THE SUPERVISOR 
{LEAVE TEST 

TRAP CIEXIT 
.UORD 1 10075- 



LOCAL TEXT MESSAGES FOR TEST 



LOCAL STORAGE FOR THIS TEST 



{LOCAL STORAGE FOR THIS TEST 




TTIGN2; 




.UORD 0 


{UORD SET IF SUPERVISOR TTI INTER OFF 


TVSAV2: 


.UORO 


0 


{SAVE TTI VECTOR 


TPSAV2: 


.UORD 


0 


{SAVE TTI PRIORITY 


T380LY: 


.UORD 


0 


{DELAY COUNTER FOR TEST 




.BLKB 


10-<.-TSV2C7> 




T38PACKET: 




{COMMAND PACKET FOR TEST 




.UORD 


140006 


{URITE SUBSYSTEM MEM. CMD. ACK.CVC-1 




.UORD 


T38TA0 


{ADDRESS OF CHARACTERISTICS BLOCK 




.UORD 


0 






.UORD 


10. 


{STARTING VALUE OF BLOCK SIZE 


T38TA0: 






{CHARACTERISTICS DATA BLOCK 


T38BS0: 


.BYTE 


0 


{BSELO BYTE 


T38BS1: 


.BYTE 


0 


{BSELl BYTE 


T388S2: 


.UORD 


0 


{BSELl UORD 




.UORD 


0 


{DATA 


T368FR: 


.BLKU 


150. 


{MESSAGE BUFFER 


T38EB: 


.UORD 




{END OF BUFFER ADDRESS 




.BLKB 


10-< . -TSV2C7> 




T38PK2: 






{COMMAND PACKET FOR TEST 




.UORD 


140004 


{URITE CHARA. MEM. CMND.. ACK.CVC-1 




.UORO 


T38DTA 


{ADDRESS OF SELECT DATA BLOCK 




.UORO 


0 






.UORO 


10. 


(STARTING VALUE OF BLOCK SIZE 


T380TA: 






(SELECT DATA BLOCK 




.UORO 


T38BFR 


(ADDRESS OF MESSAGE BUFFER 




.WORD 


0 






.WORD 


256. 


: LENGTH OF MESSAGE BUFFER 


T38EAI: 


.UORD 


0 


(EAI BIT UORO 


T380SU: 


.WORD 


0 


(DRIVE SELECT UORD ETC 




.BLKB 


10-<.-TSV2£7> 




T38PK3: 


.UORO 


140212 


: MESSAGE BUFFER RELEASE COMMAND 




.UORO 


0 


(NOT USED 



B2 



TSV5 • HAROIMRE TESTS MACRO N1115 
TEST 10: HMUML INTERVENTION 



6348 
6349 

6550 
6351 
6352 
6353 
6355 
6357 
6358 
6359 
6360 
6361 
6362 
6363 
6364 
6365 
6366 
6367 
6368 
6369 
6370 
6371 
6372 
6373 
6374 
6375 
6376 
6377 
6378 
6379 
6380 
6381 
6382 
6383 
6384 
6385 
6386 
6387 
6388 
6389 
6390 
6391 
6392 
6393 
6394 
6395 
6396 
6397 
6398 
6399 
64 CO 
6401 
6402 
6403 
6404 
6405 
6406 



071754 
071756 
071760 



071762 
071770 
071772 
071774 
071776 



000000 
000000 
000000 



140005 
000000 
000000 
000400 



OlFEB-84 17:02 



.UORD 0 
.UORD 0 
.UORO 0 

iuRITE TAPE PACKET 



SEQ 221 



.BLKB 
T38PK4: .UORD 
T38UR: .UORO 

.UORO 
T38SIZ: .UORO 



t ♦ 



10-€.-TSV267> 

140005 

0 

0 

256. 



I NOT USED 
•NOT USED 
I NOT USED 



lURITE. ACK. CVC-1 COrtlAND 
t ADDRESS or URITE MFFER 
iNORE ADDRESS OF URITE BUFFER 
I SIZE OF RECORD 



iLOCAL TEXT MESSAGES FOR TEST 



I - 



072000 


123 


164 


141 


T90NE: 


.ASCIZ 


072055 


045 


116 


045 


TS6nS3i 


.ASCIZ 


072150 


124 


123 


123 


T3a>gT: 


.ASCIZ 


072234 


127 


122 


111 


TSQURL % 


.ASCIZ 


072275 


127 


122 


111 


TS8ULE: 


.ASCIZ 


072342 


127 


122 


111 


T38NBA: 


.ASCIZ 


072416 


103 


157 


156 


TS8SSR: 


.ASCIZ 


072506 


045 


116 


045 


TS8INT: 


.ASCIZ 


072536 


045 


116 


045 


T380M.t 


.ASCIZ 


072572 


045 


116 


045 


T380FL: 


.ASCIZ 


072626 


105 


157 


156 


TS8SST: 


.ASCIZ 


072716 


045 


116 


045 


T38nSl: 


.ASCIZ 


073011 


045 


116 


045 


T38HS2: 


.ASCIZ 


075055 


111 


163 


040 


T38nSG: 


.ASCIZ 


075115 


115 


141 


156 


T38I0: 


.ASCIZ 


073142 


073166* 


073240' 


073266' 


nircMUt 


.EVEN 
•UORO 


07S1S6 


073435* 


07SS00' 


073543* 




.UORO 


075166 


012 


125 


105 


1*: 


.ASCIZ 


075240 


012 


Oil 


060 


21: 


.ASCIZ 


075266 


Oil 


061 


Oil 


5t: 


.ASCIZ 


075520 


Oil 


062 


Oil 


4t: 


.ASCIZ 


075555 


Oil 


065 


Oil 


5t: 


.ASCIZ 


073407 


Oil 


064 


Oil 


6»: 


.ASCIZ 


075455 


Oil 


065 


Oil 


81: 


.ASCIZ 


073500 


Oil 


066 


Oil 


9$t 


.ASCIZ 


073543 


000 






101 1 


.ASCIZ 












.EVEN 










!♦ 

t LOCAL 


STORAGE 



Stand-alon* Nanual Intervention Not Exocutotf' 

iMM Typo <RETURN> To Stop Sorvo Enorcioor. Rotum To Honu* 

TSSR Not Corroct Aftor URITE. u;th URITE PROTECT On* 

URITE LOCKED Bit Not Sot In XSTO' 

URITE LOCK ERROR Bit Not Sot In XSTO' 

URITE SUBSYSTEH HENQRY CoMiWttf Not Accoptotf' 

Contonto of TSSR Incorroet Aftor URITE SUBSYSTEM MEnORY* 

««M Interrupt Rocoivod' 

MM Oriwo lo Now ON-LINE' 

iffftf( Orivo lo Now OFF-LINE* 

Contonto Of TSSR Incorrect Aftor MESSAGE BUFFER RELEASE' 
MtAToMie ON-LINF Switch to Gonerote ATTENTION Interrupte* 
«N«AType RETURN To Return To HenoMI' 
lo Urite-Protectetf Tope Mountetf' 
Menuol Intervention' 

l«.2».3>.4t.5».6» 
81. 99. 101.0 

<i2>' SELECT OPERATION FROM FQLLOUING OPTIONS:' 
<12>' 0 Oioploy Thio Menu' 

1 Turn On AH M7455 LEO' O' 

2 Turn Off All M7455 LED"0* 

3 Offline/Online Attention* 

4 Urite Protect Toot' 

5 Print Extended Troneport Stotue' 

6 Return to Oiognootic Supervieor' 



TSV5 
TEST 10: 

6407 
6409 
6409 
6410 
6411 
6412 
641S 
•>414 
6415 
6416 
6417 
64 IS 
6419 
6420 
6421 
6422 
642S 
6424 
6425 
6426 
6427 
6428 
6429 
6430 
6431 
6432 
6433 
6434 
6435 
6436 
6437 
6438 
6439 
6440 
6441 
6442 
6443 



C2 



073544 
073546 
073546 
073552 
073556 
073S62 
073566 
073570 
075574 
073576 
073600 
073602 



6445 



6447 
6448 
6449 
6450 
6451 



073604 
073604 
073610 
073612 
073616 
073620 
073622 
073624 
073626 
073630 
073630 
073632 
073634 
073640 
073644 
073646 
073650 
0736S4 
073654 
073660 
073664 
073666 
073670 
073674 
073676 
073700 
073702 
073706 



000000 

012701 071220' 
012721 140206 
012721 071230' 
005021 

012721 000006 

005021 

005021 

005011 

000207 



01 -FEB 84 17:02 



T380AT: .WORD 
T38RESt : 

SAVREG 

NOV 

MOV 

MOV 

CLR 

MOV 

CLR 

CLR 

CLR 

RTS 



SEQ 222 



iLCGICAL RESPONSE TO QUESTION 



•T38PACKET.R1 

#140206. CRD* 

*T38TA0.(R1)* 

(Rl)» 

•6.. CRD* 

CRD* 

(Rl)» 

(Rl) 

PC 



I SAVE THE REGISTERS 

I START OF THE PACKET 

IMRITE SUBSYSTEM MEM. WITH ACK.CVC-l 

I ADDRESS OF DATA BLOCK 

I EXTENDED ADDRESS 

tSIZE OF DATA BLOCK IN BYTES 

I CLEAR BSELO AND BSELl 

I CLEAR SEL2 

•CLEAR DATA AREA 

iRETURN 



010005 
005737 
001001 
005001 
010103 
006100 
006101 

010546 
010146 
012746 
012746 
010600 
104415 
069706 

012746 
012746 
010600 
104415 
062706 
010501 
010300 
001403 
004737 
OlOOOS 



THIS ROUTINE PRINTS THE CONTENTS OF 

THE 256 BYTE MESSAGE BUFFER RETURNED BY THE 

TSV-05. 



INPUT: 



RO LOU ORDER ADDRESS OF MESSAGE BUFFER 

Rl HIGH ORDER ADDRESS OF MESSAGE BUFFER 

NOTE: Rl IS IGNORED IF KTENABLE FLAG IS CLEAR 



003134' 



T38MBP: 



9101; 



SAVREG 




iSAVE THE REGISTERS 


MOV 


RO.RS 


tSAVE LOU ORDER ADDRESS 


TST 


KTENABLE 


•ADDRESS ABOVE 28K? 


BNE 


9101 


;BR IF YES 


CLR 


Rl 


tSET HIGH ORDER ADDRESS TO 0 


MOV 


R1.R3 


tSAVE HIGH ORDER ADDRESS 


RX 


RO 


iSHIFT BIT15 TO C BIT 


ROL 


Rl 


1 SHIFT TO HIGH ORDER FOR PRINTOUT 


PRINTX 


•T38AS0.R1.R5 


•PRINT MESSAGE BUFFER ADDRESS 



074106* 
000003 



000010 

074153' 
000001 



000004 



017130 



PRINTX «T38AS1 



MOV 
MOV 
BEQ 

JSR 
MOV 



R5.R1 
R3.R0 
9131 

PC.SETMAP 
R0.R5 



•PRINT HEADER FOR CONTENTS 



•COPY LOU ORDER ADDRESS 
•COPY HIGH ORDER ADDRESS 
iBR IF NOT ABOVE 28K 
•SETUP PAR ADDRESS IN RO 
•GET PAR FORMAT ADDRESS ABOVE 26K 



MOV 


R5.-(SP) 




MOV 


Rl.-CSP) 




MOV 


tT38AS0. 


CSP) 


MOV 


#3.-(SP) 




MOV 


SP.RO 




TRAP 


CIPNTX 




ADD 


•10. SP 




MOV 


•T38AS1. 


(SPI 


MOV 


•l.-(SP) 




MOV 


SP.RO 




TRAP 


CSPNTX 




ADO 


•4.SP 





SEQ 221 



64S2 07S710 


010537 


074254 


64SS 073714 


011504 




6454 07S716 


022704 


1^5252 


64SS 073722 


001417 




6456 073724 


010403 




6457 075726 


042704 


170577 


6458 075732 


000241 




6459 075754 


006004 




6460 075756 


006004 




6461 075740 


006004 




6462 075742 


006004 




6465 075744 


042705 


177760 


6464 075750 


060405 




6465 0757S2 


010525 




6466 0757S4 


020527 


071712 


6467 075760 


001555 




6468 075762 


015705 


074254 


6469 075766 


012704 


000001 


6470 075772 






075772 


012546 




075774 


010446 




075776 


012746 


074250 


074002 


012746 


000005 


074006 


010600 




074010 


104415 




074012 


062706 


000010 


6471 074016 


005057 


074254 


6472 074022 


000412 




6475 074024 






074024 


012546 




074026 


010446 




074050 


012746 


074211 


074054 


012746 


000005 


074040 


010600 




074042 


104415 




074044 


062706 


000010 


6474 074050 


00 257 


074254 


6475 074054 






6476 074056 


020427 


000200 


6477 074062 


005010 




6470 074064 


025727 


074254 


6479 074072 


001401 


6480 074074 


000755 




6481 074076 


005057 


074254 


6482 074102 


000755 




6483 074104 


000207 




6484 




6485 0/4106 


045 


116 


6486 074155 


045 


116 


6487 074211 


045 


101 


6468 074250 


045 


116 


6489 






6490 074254 


000000 




6491 074256 






074256 






074256 


104401 





913$ J 
911$ 1 



912* t 
9151: 



921«t 



MOV 


RS.TS8CNT 


iHOLO ADDRESS 


nov 


(R5).R4 


iGET BUFFER ENTRY 


CMP 


•125252. R4 


iCHECK FOR NO LOAO CONDITION 


BEQ 


912$ 


iBR. IF BUFFER WASN'T LOADED 


HOV 


R4.R3 


iMAKE COPY 


BIC 


•170377.R4 


tONLY BITS 11.10.9 AND 6 ARE SAVED 


CLC 




t CLEAR CARRY 


ROR 


R4 


til TO 10 BIT POSITION 


ROR 


R4 


1 10 TO 9 BIT POSITION 


ROR 


R4 


|9 TO 8 BIT POSITON 


ROR 


R4 


t8 TO 7 BIT POSITION 


BIC 


•177760.R5 


lONLY BITS 3.2.1 AND 0 ARE SAVED 


MX) 


R4.R5 


rOR'EM TOGETHER 


nov 


R5.(R5)* 


tPUT BACK IN BUFFER 


CHP 


R5.«T58EB 


tEND OF BUFFER YET 


BNE 


911* 


iBR. IF NOT AT END YET 


MOV 


T58CNT.R5 


tPUT ADDRESS BACK 


nov 


•1.R4 


i START BYTE NUMBER AT ONE 


PRINTX 


•T58ASN.R4.(R5)» 


tPRT MEM BUFFER U/NEULINE 



aR 

BR 

920»t PRINTX 



T56CNT 
9211 

•T56ASC.R4.(R5)* 



MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADO 

taSAR COUNTER 
I SKIP OTHER PRINT 
iPRINT THE CONTENTS OF MEMQRr 

MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 



045 
045 
040 
045 



925»t 

SO«t 

T58AS0t 
T56AS1: 
T56ASCI 
T56ASN: 

T38CNT: 



INC 
INC 
CHP 
BGT 
CMP 
BEQ 
BR 

aR 

BR 

RTS 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.UORO 

ENDTST 



T58CNT 
R4 

R4.n28. 
SOI 

T56CNT.M 

925* 

920» 

T58CNT 

915» 

PC 



tBUHP COUNTER 

t NUMBER OF THE NEXT 

tDONE ALL YET ? 

iBRANCH IF ALL DONE 

tOCNE FOUR YET 
tBR. IF THREE DONE 

tKEEP GOING 

t CLEAR COUNTER 
tPRINT UITH NEU LINE 

{RETURN 



Buffer AddTM* • «01K05' 
Buffer Contents:' 
'tfA «D4ilA:~«05' 
'MWA Byt««D4tfAi «05' 



ADD 



(R5)».-(SP) 

R4.-(SP> 

«TS8ASN.-(SP) 

♦3.-(SP) 

SP.RO 

C$PNTX 

•10. SP 



BUFFER 

(R5)..-CSP) 

R4.-CSP) 

•T38ASC.-(SP) 

•3.-(SP) 

SP.RO 

C$PNTX 

•10. SP 



I COUNTER FOR PRINT 



L 10075: 



6492 



TRAP 



C$ETST 



E2 



TSV5 HAPOUARt TESTS MACRO Ml I 15 
TEST 11: CONFIGURATION TYPEOUT 

6495 
6494 

6495 
6496 
6497 
6496 
6499 
6500 
6501 
6502 
6505 
6504 
6505 
6506 
6507 
6506 
6509 
6510 
6511 
6512 
6513 
6514 
6515 
6516 
6517 
6518 
6519 
6520 
6521 
6522 
6S2S 
6524 
6525 
6526 
6527 
6526 
6529 
6530 



01 -FEB -64 17:02 



SEQ 224 



.S8TTL TEST 11; CONFIGURATION TtPEOUT 



THIS IS A STANDALONE ROUTINE THAT PRINTS OUT ON THE CONSOLE TERMINAL 
THE CONFIGURATION OF THE H7455 MODULE AND TSV05 SUBSYSTEM. SPECIFICALLY. 
THE FOLLOWING INFORMATION IS PRESENTED: 

1.0 STATE OF THE EXTENDED FEATURES SWITCH ON THE H7455: ON (EXTENDED 
FEATURES ENABLED) OR OFF (EXTENDED FEATURES DISABLED). 

2.0 STATE OF THE BUFFERING ENABLE SWITCH ON THE n7455: ON 
(BUFFERING ENABLED) OR OFF (BUFFERING DISABLED). 

3.0 niCm)C(»E REVSION LEVEL OF THE H7455. 

4.0 NUMBER OF TAPE TRANSPORTS CONNECTED TO THE CONTROLLER. 

5.0 UNIT SELECT CODE AND STATE (ONLINE/OFFLINE. WRITE ENABLED/PROTECTED) 
OF EACH COMCCTED TRANSPORT. IN ADDITION. THE PROGRAM WILL INDICATE. 
FOR EACH ON-LINE TRANSPORT. WHETHER OR NOT IT IS EQUIPPED WITH THE 
EXTENDED TAPE STATUS READOUT FEATURE. 

THE OPERATOR IS EXPECTED TO READ THE PRINTOUT AND VERIFY THAT IT MATCHES 
THE ACTUAL CONFIGURATION AT HAND. IF. FOR EXA»m.E. THE PROGRAM INDICATES 
THAT IT -SEES" TWO TRANSPORTS CONNECTED WHEN IN FACT ONLY ONE IS PRESENT. 
THE OPERATOR MUST INTERPRET THIS AS AN ERROR AND ATTEMPT TO FIIO THE 
CAUSE (BAD CABLE. FAULTY UNIT -SELECT DECODING IN THE TRANSPORT. ETC.). 
[SINCE THE CONTROLLER CAN ONLY ACCESS UNIT 0 IF IT IS IN "STANDARD- 
MODE. THE PROGRAM WILL FORCE THE MODULE INTO EXTENDED MODE VIA THE 
WRITE SUBSYSTEM MEMORY COMMAM) IN ORDER TO SCAN FOR CONNECTED TRANSPORTS.] 

THIS ROUTINE. WHEN ITS ACTIONS ARE COMPLETED. WILL EXIT BACK TO THE 
DIAGNOSTIC SUPERVISOR SO THAT IF ADDITIONAL UNITS (CONTROLLERS) ARE 
SELECTED (E.G.. FROM THE INITIAL STARTUP DIALOG). THE ROUTINE WILI BE 
REENTERED SO THAT THEIR CONFIGURATIONS CAN BE PRINTED. 



6531 074260 








BGNTST 




074260 












6536 074260 








RFLAGS 


RO 


074260 


104421 










6537 074262 


001403 






BEQ 


101 


6536 074264 


012700 


076253* 




MOV 


•T39NE.R0 


6539 074270 


000402 






BR 


11* 


6540 074272 


012700 


077402* 


lOt: 


MOV 


•TST39ID.ro 


6541 074276 


004737 


016322' 


111: 


JSR 


PC.TSTSETUP 


6542 074302 


004737 


020320' 




JSR 


PC.CHKMAN 


6543 074306 


103402 






BCS 


20« 


6544 074310 


000137 


075470' 




JMP 


64« 


6545 074314 






201: 






6546 074314 


004737 


015604- 




JSR 


PC.SOFINir 


6547 074320 


103405 






BCS 


251 


6551 074322 


010001 






MOV 


RO.Rl 


6532 074324 








ERRDF 


ERRNO . SFIERR . SFIMSG 


074324 


104455 








074326 


002115 











Til: 

I GET OPERATOR FLAGS 



TRAP 



CtRFLA 



sBR. IF OK TO RUN 
I "TEST NOT EXECUTED- 
iJUMP OUT OF TEST IF NOT 
I TEST ID MESSAGE 
iDO THE COMMON SETUP 
tIS MANUAL INTERVENTION ALLOWED? 
tBR. IF MANUAL INTERVENTION ALLOWED 
tJUMP TO OUT IF NOT 

t DO SOFT ZNIT OF CONTROLLER 

iBR IF SOFT INIT > OK 

I SAVE CONTENTS OF TSSR 

(DEVICE FATAL ERROR DURING INIT 

TRAP C<EROF 
.WORO 1101 



TSV5 • HARDWARE TESTS MACRO Hit 15 01 
TEST 11: CONFIGURATION TYPEOUT 



074SSO 


003646' 




074S32 


0)1644' 




6555 0743S4 






074334 


104406 




6554 074336 


013737 


002202' 076220 


6555 074344 


012704 


076200' 


6556 074350 


004737 


010472' 


6557 074354 


103405 




6561 074356 


010001 




6562 074360 






074360 


104456 




074362 


002116 




074364 


005052' 




074366 


011644' 




6563 074370 






074370 


104406 




6564 074372 


013701 


075530* 


6565 074376 






074376 


012746 


077121' 


074402 


012746 


000001 


074406 


010600 




074410 


104415 




074412 


062706 


000004 


6566 074416 


0S2701 


000200 


6567 074422 


001011 




6568 074424 






074424 


012746 


077245' 


074430 


012746 


000001 


074434 


010600 




074436 


104415 




074440 


062706 


000004 


6569 074444 


000410 




6570 074446 






074446 


012746 


077254' 


0744S2 


012746 


000001 


074456 


010600 




074460 


104415 




074462 


062706 


000004 


6571 074466 






074466 


012746 


077173' 


074472 


012746 


000001 


074476 


010600 




074500 


104415 




074502 


062706 


000004 


6572 074506 


0S2701 


000100 


6573 074512 


001011 




6574 074514 






074514 


012746 


077245' 


074520 


012746 


000001 


074524 


010600 




074526 


104415 




074SS0 


062706 


000004 


6575 074534 


000410 




6576 074536 






074536 


012746 


077254' 


074542 


012746 


000001 


074546 


010600 





FEB 84 17:02 



F2 



SEQ 225 



25t: 



50t! 



100>: 



CKLOOP 

HOV 
HOV 
JSR 
BCS 
MOV 
ERRHRO 



CKLOOP 



UNITN.T39DSU 

•T39PK2.R4 

PC.URTCHR 

50* 

RO.Rl 

ERRNO . URTnSG . SF inSG 



nOV T39BFR*12.R1 
PRINTX #T39SFS 



BIT •BIT7.R1 
BNE loot 
PRINTX •T390FF 



BR 110» 
PRINTX •T390N 



not: PRINTX •T39S8S 



BIT «eiT6.Rl 
BNE 120( 
PRINTX #T390FF 



BR 130$ 
120»: PRINTX 4T390N 



.WORD SFIERR 
.UORD SFinSG 
I LOOP IF SELECTED 

TRAP CICLPI 

tSET UNIT NUMBER 

•SUBROUTINE NEEDS PACKET ADDRESS 

t ISSUE URITE CMARACTERISTICS 

iBR. IF COMMAND ISSUED OK 

tSAVE CONTENTS OF TSSR 

I URITE CHARACTERISTISC FAILED 

TRAP CIERHRO 
.WORD 1102 
.UORD URTMSG 
.UORD SFIMSG 

{LOOP IF SELECTED 

TRAP CtCLPl 
tGET XST2 STATUS FROM MESSAGE BUFFER 



{"STATE OF EXTENDED FEATL<RES SU 

MOV 
MOV 
MOV 
TRAP 
ADD 

tCHECK STATE OF F.F.S. 

tBR. IF EXT. FEA. SU. IS ON 

l" OFF" 

MOV 

MOV 

MOV 

TRAP 

ADO 

tSKIP OTHER PRINT STATEMENT 

»" ON " 

MOV 

MOV 

MOV 

TRAP 

ADD 

{ ••STATE OF BUFFERING SUITCH -" 

MOV 
MOV 
MOV 
TRAP 
ADD 

{CHECK STATE OF BUFFERING SU 
{BR. IF BUFFERING IS ON 
{" OFF" 

HOV 

HOV 

HOV 

TRAP 

ADO 

(SKIP OTHER PRINT STATEMENT 
{" ON " 

HOV 
HOV 
HOV 



•T39SFS.-CSP> 

♦l.-CSP) 

SP.RO 

CtPNTX 

•4.SP 



•T390FF.-CSP) 

♦l.-CSP) 

SP.RO 

CtPNTX 

•4.SP 



♦T39CN.-CSP) 

•l.-CSP) 

SP.RO 

CJPNTX 

•4.SP 

•T39S8S.-CSP) 

#l.-CSP) 

SP.RO 

CtPNTX 

♦4.SP 



•T390FF..CSP) 

n.-CSP) 

SP.RO 

CtPNTX 

•4.SP 



*T590N. (SP) 
•1. (SP) 
SP.RO 
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G2 



6577 
6578 
6579 



6580 
6581 
6585 
6586 



6587 

6588 
6589 
6590 
6591 
6595 
6596 



6597 

6598 
6599 
6600 
6601 
6602 
6603 
6604 
6605 
6606 
6610 



6611 

6612 
6613 
6614 
6615 
6616 
6617 
6618 
6619 



074550 
074552 
074556 
074562 
074566 
074566 
0/4572 
074576 
074602 
074604 
074606 
074612 
074616 
074620 
074622 
074622 
074624 
074626 
074630 
074632 
074632 
074634 
074642 
074646 
074652 
074654 
074656 
074656 
074660 
074662 
074664 
074666 
074666 
074670 
074674 
074676 
074704 
074712 
074716 
074722 
074726 
074730 
074732 
074732 
074734 
074736 
074740 
074742 
074742 
074744 



104415 

062706 000004 

042701 177700 

010137 077340' 

013746 077340* 
012746 077263' 
012746 000002 
010600 
104415 

062706 000006 
004737 015604* 
103405 
010001 

104455 

002117 

003646' 

011644' 

104406 

013737 002202' 076220' 
012704 076200* 
004737 010472' 
103405 
010001 

104456 

002120 
005052' 
011644* 



130$: BIC ♦177700, Rl 
MOV R1,T39RL 
PRINTX •T39MCL.T39RL 



SEQ 226 



TRAP C»PNTX 
AM) #4 SP 

I ONLY LEAVE MICROCODE REV LEVEL 

I LOAD UP REV LEVEL 

{"MICROCODE REVISION LEVEL -OOOXXX" 



JSR 
BCS 
MOV 
ERROF 



1401 : CKLOOP 

MOV 
MOV 
JSR 
BCS 
MOV 

ERRHRO 



PC.SOFINIT 

140$ 

RO.Al 

ERRNO.SFIERR.SFIMSG 



UNITN,T390SU 

♦T39PK2.R4 

PC.URTCHR 

150$ 

RO.Rl 

ERRNO . UR TMSG . SF IMSG 



MOV 
MOV 
MOV 
MOV 
TRAP 
ADO 

tOO SOFT INIT OF CONTROLLER 

iBR IF SOFT INIT • OK 

jSAVE CONTENTS OF TSSR 

•DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 
•LOOP IF SELECTED 

TRAP 

I SET UNIT NUMBER 
{SUBROUTINE NEEDS PACKET ADDRESS 
t ISSUE URITE CHARACTERISTICS 
iBR. IF COMMAND ISSUED OK 
tSAVE CONTENTS OF TSSR 
i URITE CHARACTERISTISC FAILED 

TRAP 
.UORO 
.WORD 
.WORD 



T39RL,-(SP) 
♦T39MCL.-(SP) 
♦2.-(SP) 
SP.PO 
C»PNTX 
♦6.SP 



C$ERDF 
1103 
SFIERR 
SFIMSG 



C$CLP1 



C$ERHRD 
1104 
URTMSG 
SFIMSG 







1501: 


CKLOOP 




iLOOP IF SELECTED 


104406 










TRAP C$CLP1 


005737 


002226' 




TST 


EXTFEA 


t CHECK FOR EXTENDED FEATURES SU SWITCH 


001036 






BNE 


1741 


iBR IF SWITCH IS ON 


112737 


000200 


075511' 


MOVB 


♦200.T39BS1 


t URITE MISCELLANEOUS CONT/REAO STATUS 


112737 


000010 


075510' 


MOVE 


•10.T398S0 


{FUNCTION SELECTION BIT (TURN ON EXTFEA HU SUlTCh) 


012704 


07SS00' 




MOV 


•T39PACKET.R4 


{URITE SUBSYS MEM PACKET 


010465 


000000 




MOV 


R4.TSD6(RS) 


(ISSUE COMMAND 


004737 


016146' 




JSR 


PC.CHKTSSR 


(WAIT FOR SSR 


103405 






BCS 


1601 


{BR. IF NO ERROR 


010001 






MOV 


RO.Rl 


(ERROR. SAVE TSSR 








ERRHRO 


ERRNO. T39NBA.PKTSSR 


(TSSR NOT CORRECT AFTER URT. MISCELLANEOUS 



104456 

002121 

076755' 

011656' 

104406 

012704 076200' 



160$: CKLOOP 

MOV «T39PK2.R4 



TRAP C$ERHRD 

.WORD 1105 

.WORD T30NBA 

.UORD PKTSSR 

{LOOP IF SELECTED 

TRAP C$CLP1 
(SUBROUTINE NEEDS PACKET ADDRESS 



URITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 



074750 004737 010472' 



JSR 



PC.URTCHR 



(ISSUE URITE CHARACTERISTICS 



H2 
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6620 074754 


103405 




6624 074756 


010001 




6625 074760 






074760 


104456 




074762 


002122 




074764 


005052' 




074766 


011644' 




6626 074770 






074770 


104406 




6627 074772 


005037 


002202' 


6628 074776 


013737 


002202' 


6629 075004 


012704 


076200' 


6630 075010 


004737 


010472' 


6651 075014 


103405 




6635 075016 


010001 




6636 075020 






075020 


104456 




075022 


002123 




075024 


005052' 




075026 


011644' 




6637 075030 






075030 


104406 




6636 






6639 075032 


016501 


000002 


6640 075036 


032701 


000100 


6641 075042 


001414 




6642 075044 






075044 


013746 


002202' 


075050 


012746 


076514' 


075054 


012746 


000002 


075060 


010600 




075062 


104415 




075064 


062706 


000006 


6643 075070 


000137 


075424' 


6644 075074 




075074 


013746 


002202' 


075100 


012746 


076560' 


075104 


012746 


000002 


075110 


010600 




075112 


104415 




075114 


062706 


000006 


6645 075120 


013701 


075524' 


6646 075124 


032701 


000004 


6647 075130 


001013 




6648 075132 






075132 


013746 


002202' 


075136 


012746 


076676' 


075142 


012746 


000002 


075146 


010600 




075150 


104415 




075152 


062706 


000006 


6649 075156 


000412 




6650 075160 






075160 


013746 


002202' 


075164 


012746 


076623' 


075170 


012746 


000002 


075174 


010600 





FEB -84 


17:02 










BCS 


170$ 








hOV 


RO.Rl 


iSAVE CONTENTS OF TSSR 






EPRHRD 


ERRNO • yR TMSG • SF IMSG 


tURITE CHARACTER I ST I FAILED 










TRAP 




















.WORD 


URTHSG 








.WORD 


SFIHSG 


1701: 


CKLOOP 




(SCOPE LOOP 










TRAP 


CICL^l 


174$: 


CLR 


UNITN 


iSET TO DRIVE 0 




1751: 


nov 


UNITN.T39DSW 


(SET UNIT NUMBER 






NOV 


«T39PK2.R4 


(SUBROUTINE NEEDS PACKET ADDRESS 




JSR 


PC.URTCHR 


(ISSUE URITE CHARACTERISTICS 






BCS 


1801 


(BR. IF COMMAND ISSUED OK 






nov 


RO.Rl 


(SAVE CONTENTS OF TSSR 






errhro 


ERRNO, URTnSG.SFinSG 


(URITE CHARACTERISTISC FAILED 










TRAP 


C9ERHRD 








.WORD 


1107 








.WORD 


URTHSG 








.WORD 


SFIHSG 


180»: 


CKLOOP 




(LOOP IF SELECTED 










TRAP 


CICLPl 



190$ i 



2001 j 



2101 i 



HOV 
BIT 
BEQ 
PRINTX 



TSSR(R5).R1 

•OFL.Rl 

200$ 

•TS90F2. UNITN 



JMP 

PRINTX 



2S0« 

•TS90N2.UNITN 



MOV 
BIT 
BNE 
PRINTX 



r39BFR»6.Rl 

«BIT2.R1 

2101 

•TS9UPN. UNITN 



BR 

PRINTX 



220$ 

•TS9WRT. UNITN 



(GET TSSR STATUS 
(CHECK FOR OFF-LINE 
(BR. IF DRIVE IS ON-LINE 
("DRIVE NUMBER XX IS OFF-LINE" 

MOV 

nov 

MOV 
MOV 
TRAP 
ADD 

(DO NOT TRY TO GET ANYMORE INFO, 
("DRIVE NUMBER XX IS ON-LINE" 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

(READ EXTENDED STATUS (XSTO) 
(IS DRIVE UTITE PROTECTED 
(BR. IF URITE PROTECTED 
("DRIVE NUMBER IS NOT URT WO" 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

(SKIP OVER 

("DRIVE NUMBER XX IS URT PRO" 

MOV 
MOV 
MOV 

MOV 



UNITN. (SP) 

♦T590F2,-(SP) 

#2.-(SP) 

SP.RO 

CIPNTX 

«6.SP 



UNITN. -CSP) 

•TS90N2.-(SP) 

•2. -CSP) 

SP.RO 

C$PNTX 

•6.SP 



UNITN. -CSP) 

•T39UPN.-(SP) 

«2.-(SP) 

SP.RO 

C$PNTX 

«6.SP 



UNITN. -CSP) 
M59URT.-(SP) 
♦2. -CSP) 
SP.RO 



12 
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6651 
6652 
665S 
6654 
6655 
6656 
6657 
6658 
6659 
6660 
6661 



6662 
6663 
6664 
6665 
6666 
6670 



6671 

6672 
6673 
6674 



6675 
6676 



6677 
6678 
6679 
6680 
6681 



075176 
075200 
075204 
075212 
075220 
075226 
075232 
075236 
075244 
075250 
075254 
075260 
075262 
075262 
075266 
075270 
075274 
075276 
075302 
075304 
075310 
075312 
075316 
075320 
075324 
075326 
075330 
075330 
075332 
075334 
075336 
075340 
075340 
075342 
075350 
075352 
075352 
075356 
075362 
075366 
075370 
075372 
075376 
075400 
075400 
075404 
075410 
075414 
075416 
075420 
075424 
075430 
075436 
075440 
075444 
075444 
075450 



000006 








ADO 


125252 


075616' 220t: 


MOV 


•125252. T39BFR* 100 


iSET 1 LOC TO KNOWN VALUE 


000000 


075511' 


MOVB 


•0.TS9BS1 


1 EXTENDED TAPE STATUS 


000024 


075510' 


MOVB 


•24.TS9BS0 


•EXTENDED TAPE STATUS 


075500' 




MOV 


•TS9PACKET.R4 


lURITE SUBSYS MEM PACKET 


000000 




MOV 


R4.TSDB(R5} 

•100..T39DLY 

PC.UAITF 


1 ISSUE COMMAND 


000144 


075474' 


MOV 


(SET UP DELAY ROUTINE 


016060' 


2221: 


JSR 


tUAIT AUHILE FOR SSR TC SET 


000002 




MOV 


TSSR(R5).R1 


iSEE IF IT REALLY DID 


000200 




BIT 


•SSR.Rl 


iJUST CHECK THAT BIT 






BNE 


225t 


iBR. IF SSR IS SET 






DELAY 


250 


(DELAY ABOUT .25 SEC 



104415 

062706 
012737 
112757 
112737 
012704 
010465 
012737 
004737 
016501 
032701 
001017 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001352 
004737 
103405 
010001 

104456 
002124 
076755' 
011656' 



104406 

023727 075616' 125252 
001013 



TRAP 



SEQ 220 



CIPNTX 
«6.SP 



000250 
002116' 
177772 
177756 
075474' 
016146' 



225ti 



2301: 



013746 
012746 
012746 
010600 
104415 
062706 
000412 

013746 
012746 
012746 
010600 
104415 
062706 
005237 
023727 
001402 
000137 

012746 
012746 



002202' 
076421' 
000002 



000006 



002202' 
076332' 
000002 



240 ti 



000006 

002202' 250$: 
002202' 000003 



074776' 

076250' 
000001 



DEC 
BNE 
JSR 
BCS 
MOV 

ERRHRD 



CKLOOP 

CMP 
BNE 
PRINTX 



BR 

PRINTX 



63t: 



INC 
CMP 
BEQ 
JMP 

PRINTX 



T39DLY 
222t 

PC.CHKTSSR 

2301 

RO.Rl 

ERRNO . T39NBA . PK TSSR 



T39BFR*100.#125252 
240* 

•T39ETN.UNITN 



2501 

•T39ETS.UNITN 



UNITN 

UNITN.«3 

631 

1751 

♦T39NFL 



MOV «250.(PC)» 
.WORD 0 

MDV L«0LY.(PC)» 

.WORD 0 

DEC -6(PC) 

BNE .-4 

DEC -22( PC) 

BNE .-20 

t START DELAY COUNT DOWN 

iBR. IF COUNTER IS NOT AT DONE 

lUAIT FOR SSR 

iBR. IF NO ERROR 

{ERROR SAVE TSSR 

I TSSR NOT CORRECT AFTER URT. MISCELLANEOUS 

TRAP CtERHRD 
.UORO 1108 
.UORO T39NBA 
.UORO PKTSSR 

iLOOP IF SELECTED 

TRAP 

sDID LOC GET OVER URITTEN 
tBR. IF IT DIDN'T GET ETC. 
("DRIVE DOESN'T HAVE EXT TAPE STATUS 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

(SKIP OVER 

("DRIVE HAS EXT TAPE STATUS" 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

I BUMP DRIVE NUMBER 
(AT END OF DRIVES YET 
(BR. IF NO MORE DRIVES 
(DO NEXT DRIVE 

(NEW LINE 

MOV #T39NFL. 
MOV #1, (SP) 



C»CLPl 



UNITN, -(SP) 
♦T39ETN..CSP) 
♦2.-(SP) 
SP.RO 
CIPNTX 
•6.SP 



UNITN. (SP) 
♦T39ETS.-(SP) 
♦2.-(SP) 
SP.RO 
C$PNTX 
«6.SP 



iSP) 



J2 
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JMP 


200 






641 • 


EXIT 


TST 






















6684 




1 LOCAL 






66d5 




TEXT MESSAGES FOR TEST 


6686 




s - 






6687 










6688 




s LOCAL 


STORAGE 


rOR THIS TEST 


6689 




I - 






6690 










6691 075474 


000000 


T390LY: 


.UORO 


0 


6693 075476 






.BLKB 


10-< . -TSV267> 

AV ^ • ■ W V WW ■ ^ 


6695 075500 




T39PACKET: 




6696 07SS00 


140006 

A^ WW 




.UORD 


140006 

WW 


6697 07SS02 


075510* 




.WORD 


T39TAD 


6698 075504 


000000 




.WORD 


0 


6699 075506 


000012 




.WORD 


10, 


6700 075510 




T39TAD: 






6701 075510 


000 


T396S0: 

1 ^0 0\0 w ^0 * 


.BYTE 


0 


6702 075511 


000 


T39BS1: 


.BYTE 


0 


6703 075512 


000000 


T59BS2: 


.WORD 


0 


6704 075514 

■ V V ■ WWA~ 


000000 

www 




.WORD 


0 


6705 075516 




T39ei='R : 


.BLKW 


150. 


6706 










6707 










6709 076172 
6711 076200 






.BLKB 


10.<.-TSV2fi7> 




T59PK2: 






6712 076200 


140004 




.WORD 


140004 


6713 076202 


076210' 




.WORD 


T390TA 


6714 076204 


000000 




.WORD 


0 


6715 076206 


000012 




.WORD 


10. 


6716 










6717 










6718 076210 




T390TA: 






6719 076210 


075516' 




.WORD 


T39BrR 


6720 076212 


000000 




.WORD 


0 


6721 076214 


000400 




.WORD 


256. 


6722 076216 


000000 


T39EAI: 


.WORD 


0 


6723 076220 


000000 


T390SW: 


.WORD 


0 


6725 076222 






.BLKB 


10-<.-TSV2fi7> 


6727 076230 


140012 


T39PK5: 


.WORD 


140012 


6728 076232 


oooooo 

wwww 




.UORO 


0 


6729 




1 WRITE 




6730 




TAPE PACKET 


6731 




5 






6733 076234 






.BLKB 


10-<. -TSV2fi7> 


6735 076240 


140005 


T39PK4: 


.WORD 


140005 


6736 076242 


oooooo 


T39UR: 


.WORD 


0 


6737 076244 


OOOOOO 




.WORD 


0 


6738 076246 


000400 


TS9SIZ: 


.WORD 


256. 


6739 








6740 










6741 











iRETURN TO SUPERVISOR 
lEXIT THIS SECTION 



riov 

TRAP 
ADO 



TRAP 
.WORD 



SEQ 229 



SP.RO 

CIPNTX 

♦4,SP 



CIEXIT 
L 10076 - 



; DELAY COUNTER FOR TEST 

; COMMAND PACKET FOR TEST 

J WRITE SUBSYSTEM MEM. CMO, ACK.CVC-1 

{ADDRESS OF CHARACTERISTICS BLOCK 

{STARTING VALUE OF BLOCK SIZE 
(CHARACTERISTICS DATA BLOCK 
sBSELO BYTE 
;BSEL1 BYTE 
sBSELl UORD 
sDATA 

J MESSAGE BUFFER 



iCOMMAND PACKET FOR TEST 

J WRITE CHARA. MEM. CMND.. ACK.CVC-1 

I ADDRESS OF SELECT DATA BLOCK 

; STARTING VALUE OF BLOCK SIZE 



{SELECT DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 

{EAI BIT WORD 

{DRIVE SELECT WORD ETC 

; MESSAGE BUFFER RELEASE COMMAND 
{NOT USED 



{WRITE. ACK. CVC-1 COMMAND 
{ADDRESS OF WRITE BUFFER 
{MORE ADDRESS OF WRITE BUFFER 
{SIZE OF RECORD 



I<2 
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6742 
6743 
6744 
6745 
6746 
6747 
6748 
6749 

6750 076250 

6751 076253 

6752 076332 

6753 076421 

6754 076514 

6755 076560 

6756 076623 

6757 076676 

6758 076755 

6759 077031 
6760 

6761 077121 

6762 077173 

6763 077245 

6764 077254 

6765 077263 
6766 

6767 077340 
6768 
6769 
6770 
6771 
6772 
6775 
6774 

6775 077342 

6776 077344 
6'77 077344 

6778 077350 

6779 077354 

6780 077360 

6781 077364 

6782 077366 

6783 077372 

6784 077374 

6785 077376 

6786 077400 
6787 
6788 
6789 
6790 
6791 

6792 077402 103 157 
6793 
6794 



6795 
6796 



077402 

077430 
077430 
077430 



000000 



012701 075500' 
012721 140006 
012721 075510' 
005021 

012721 000006 

005021 

005021 

005011 

000207 
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t ♦ 



SEQ 230 



045 


116 


000 


T39NFLI 


.ASCIZ 


123 


164 


141 


T39NE: 


.ASCIZ 


045 


116 


045 


T39ETSt 


.ASCIZ 


045 


116 


045 


T39ETN: 


.ASCIZ 


045 


116 


045 


T390F2: 


.ASCIZ 


045 


116 


045 


T390N2: 


.ASCIZ 


045 


116 


045 


T39URT: 


.ASCIZ 


045 


116 


045 


T39UPN: 


.ASCIZ 


127 


122 


111 


T39NBA: 


.ASCIZ 


103 


157 


156 


T39SSR: 


.ASCIZ 


045 


116 


045 


T39SFS: 


.ASCIZ 


045 


116 


045 


T39SBS: 


.ASCIZ 


045 


101 


040 


T390FF: 


.ASCIZ 


045 


101 


040 


T39QN: 


.ASCIZ 


045 


116 


045 


T39nCL: 


.ASCIZ 










.EVEN 


000000 






T39RL: 


.UORO 










.EVEN 










.EVEN 



: LOCAL TEXT MESSAGES FOR TEST 



'Stand-alen* Configuration Typoout Net Exocutod' 

'«4M Extondod Tap* Statu* Avail iabU. Oriva Nunbar ^I0^• 

•MWA Extandad Tapa Statua NOT Availiabla, Oriva Hunter KOa 

'itN«A Oriva Nuabar tf02tfA le Off-Lina' 

'HHM Oriva Nuabar d02dA I* On-Lina' 

'«4itA Oriva NuMbar d02dA la Urita Protaetad' 

•MWA Oriva Nuabar d02dA la NOT Urita Protaetad' 

'WRITE SUBSYSTEH MEMORY CoMMnd Not Aeeaptad' 

'Centant* of TSSR Ineorraet Aftar WRITE SUBSYSTEM MF.MORY' 

•dNM Stata Of Extandad Faatura* Switch -' 
'MWA Stata Of Buffering SMiteh 
'dA OFF' 
'dA ON ' 

'dNdA M7455 Mieroeoda Raviaion Laval -«02' 



> ♦ 

t LOCAL 
I - 



STORAGE FOR THIS TEST 



T39DATt .WORD 
T39REST: 

SAVREG 
MOV 
MOV 
MOV 
CLR 
MOV 
CLR 
CLR 
CLR 
RTS 

{LOCAL TEXT MESSAGES FOR TEST 
t - 



♦T39PACKET.RI 

«140006.CR1)* 

«T39TAD.(R1)* 

(RD* 

«6..(R1)* 

(Rl)» 

(Rl)» 

(Rl) 

PC 



iLOGICAL RESPONSE TO QUESTION 

tSAVE THE REGISTERS 

{START OF THE PACKET 

(WRITE SUBSYSTEM MEM. WITH ACK.CVC-1 

(ADDRESS OF DATA BLOCK 

(EXTENDED ADDRESS 

(SIZE OF DATA BLOCK IN BYTES 

(CLEAR BSELO AND BSELl 

(CLEAR SEL2 

(CLEAR DATA AREA 

(RETURN 



104401 



156 TST39ID: .ASCIZ 'Configuration Typaouf 

.EVEN 
ENOTST 



.SBTTL TEST 12: SCOPE LOOPS 



L 10076: 



TRAP CtETST 



L2 

TSVS - HARDWARE TESTS MACRO MlllS 01-FE8-84 17:02 SEQ 251 

TEST 12: SCOPE LOOPS 

6797 
6798 
6799 
6800 

6801 : 

6802 : 



6803 : THIS IS A STANDALONE ROUTINE PROVIDING A NUMBER OF TIGHT "SCOPE 

6804 : LOOPS" USEFUL FOR DEBUGGING BASIC REGISTER ACCESS PROBLEMS UITH 

6805 i THE M7455 MODULE. THESE SCOPE LOOPS CAN BE USED UHEN THE NORMAL 

6806 I "LOOP ON ERROR" OR "LOOP ON TEST (SUBTEST)" FACILITIES DON'T 

6807 t SEEM TO ALLOW THE OPERATOR TO ZERO IN A PROBLEM IN THE EARLY 

6808 t TESTS (I.E. THE HARDWARE MAY NOT BE RESPONDING TO A REGISTER 

6809 ; ACCESS, CAUSING A BUS ERROR TRAP. EVEN THOUGH THE DEVICE ADDRESS 

6810 t SELECTED BY THE PROGRAM MATCHES THE CONFIGURATION SET UP IN THE 

6811 I HARDWARE DIP SWITCHES). THE FOLLOWING MENU OF SCOPE LOOPS ARE 

6812 t AVAILABLE: 

6813 > 

6814 I CODE SCOPE LOOP 

6815 I 

6816 ; 0 HELP. PRINT THIS MENU. 

6817 t 1 TSBA READ ACCESS 

6818 i 2 TSSR READ ACCESS 

6819 t 3 INITIALIZE (TSSR WRITE ACCESS) 

6820 t 4 TSOB HIGH BYTE WRITE ACCESS 

6821 t 5 TSOB LOW BYTE WRITE ACCESS 

6822 t 6 TSOB MAINTENANCE -MODE WORD WRITE ACCESS 

6823 I 7 TSOBX (TSSR HIGH BYTE) WRITE ACCESS 
682^ t (EXTENDED FEATURES SWITCH MUST BE ON 

6825 t TO USE SELECTION CODE 7) 

6826 I 8 EXIT (RETURN TO SUPERVISOR) 

6827 { 

6828 { FOR SCOPE LOOPS THAT WRITE INTO REGISTERS. THE PROGRAM PROMPTS 

6829 I THE OPERATOR FOR THE DATA TO BE WRITTEN. TYPING <RETURN> CAUSES 

6830 t AN EXIT FROM THE SCOPE LOOP BACK TO MENU LEVEL. 

6831 ; 

6832 t . 
6833 

6834 



6835 


077432 
077432 








BGNTST 




T12:: 


6840 


077432 
077432 


104421 






RFLAGS 


RO 


:GET OPERATOR FLAGS 

TRAP C$RFLA 


6841 


077434 


001403 






BEQ 


11 


:BR. IF OK TO RUN 


6842 


077436 


012700 


101025' 




MOV 


♦T40NE.R0 


t"TEST NOT EXECUTED" 


6843 


077442 


000402 






BR 


1001 


;JUST EXIT IF NOT 


6844 


077444 


012700 


101072' 


11: 


MOV 


♦TST40ID.R0 


(TEST ID MESSAGE 


6845 


077450 


004737 


016322' 


100$: 


JSR 


PC.TSTSETUP 


I DO THE COMMON SETUP 


6846 


077454 


004737 


020320' 




JSR 


PCCHKMAN 


iSEE IF MANUAL INTERVENTION ALLOWED 


6847 


077460 


103402 






BCS 


2$ 


(CARRY SET IF INTERVENTION ALLOWED 


6848 


077462 


000137 


100146* 




JUP 


64$ 


(EXIT IF NO MANUAL INTERVENTION 


6849 


077466 


004737 


015604' 


2$: 


JSR 


PC.SOFINIT 


(DO A SOFT INIT 


6850 


077472 


103405 






BCS 


5$ 


(BRANCH IF OK 


6851 


077474 


010001 






MOV 


RO.Rl 


(CONTENTS OF TSSR REGISTER 


6855 


077476 








ERROF 


ERRNO . SF lERR . SF inSG 


{REPORT FATAL ERROR 




077476 


104455 








TRAP C$ERDF 




077500 


C02261 










.WORD 1201 




077502 


00^646' 










.WORD SFIERR 



TSV5 • HARDWARE 


TESTS 


MACRO M1113 01 


-FEB 84 


17:02 


TEST 12 


: SCOPE 


LOOPS 












077504 


011644' 










6856 


077506 


012700 


100164' 




5$: 


MOV 


6857 


077512 


012701 


000010 






MOV 


6858 


077516 


004737 


020076' 






JSR 


6859 


077522 


005700 








TST 


6860 


077524 


001760 








BEQ 


6861 


077526 


020027 


000007 






CMP 


6862 


077532 


001015 








BNE 


6863 


077534 


005737 


002226' 






TST 


6864 


077540 


001012 








BNE 


6865 


077542 










PRINTF 




077542 


012746 


100747' 










077546 


012746 


000001 










077552 


010600 












077554 


104417 












077556 


062706 


000004 








6866 


077562 


000137 


077466' 






JMP 


6867 


077566 


010004 






31: 


MOV 


6868 


077570 










SETPRl 




077570 


012700 


000340 










077574 


104441 










6869 


077576 


005037 


100156' 






CLR 


6870 


077602 


032737 


000100 


177560 




BIT 


6871 


077610 


001005 








BNE 


6872 


077612 


005237 


100156' 






INC 


6873 


077616 


052737 


000100 


177560 




BIS 


6874 


077624 


012701 


000060 




4$: 


MOV 


6875 


077630 


011137 


100160' 






MOV 


6876 


077634 


012721 


100060' 






MOV 


6877 


077640 


011137 


100162' 






MOV 


6878 


077644 


012711 


000340 






MOV 


6879 


077650 










SETPRl 




077650 


012700 


000000 










077654 


104441 










6880 


077656 


006304 








ASL 


6881 


077660 


000174 


077664' 






JMP 


6882 


077664 


077466* 






61: 


.WORD 


S883 


077666 


077706' 








.WORD 


6884 


077670 


077716' 








.WORD 


6885 


077672 


077730' 








.WORD 


6886 


077674 


077750' 








.WORD 


6887 


077676 


077774* 








.WORD 


6888 


077700 


100020' 








.WORD 


6889 


077702 


100040' 








.WORD 


6890 


077704 


100152' 








.WORD 


6891 














6892 














6893 


077706 


105065 


000000 




10$: 


CLRB 


6894 


077712 


011500 






12$: 


MOV 


6895 


077714 


000776 








BR 


6896 














6897 














6898 


077716 


012703 


000002 




15$: 


MOV 


6899 


077722 


060503 








ADO 


6900 


077724 


011300 






18$: 


MTV 


6901 


077726 


000776 








eR 


6902 















SEQ 232 



.WORD SFIMSG 
iMENU OF SCOPE LOOP SELECTIONS 
iMAXinUM ALLOWED SELECTION 
I GO GET THE OPERATORS SELECTION 
I WAS ZERO SPECIFIED ? 
I REPEAT MENU IF YES. 
I EXTENDED TSSR ? 
{BRANCH IF NOT 

J CHECK FOR EXTENDED FEATURES SET 
;BR IF IT IS ON 

(WARN OPERATOR EXTENDED FEATURES CLEAR 



MOV 
MOV 
MOV 
TRAP 
ADD 

tGO BACK TO BASIC MENU 
tSAVE THE MENU SELECTION 
{RAISE THE PRIORITY 

MOV 
TRAP 

(ASSUME INTERRUPTS ARE ENABLED 

I ARE TTI INTERRUPTS ON ? 

{BRANCH IF YES 

{FLAG SET IF INTERRUPTS OFF 

{ENABLE INTERRUPTS 

(START OF TTI VECTORS 

(SAVE THE CURRENT TTI VECTOR 

{SET NEW INTERRUPT ROUTINE 

(SAVE THE VECTOR PRIORITY 

sUSE PRIORITY SEVEN 

t LOWER INTERRUPT BR LEVEL 

MOV 
TRAP 

(CONVERT TO WORD OFFSET 

(JUMP TO PROPER LOOP 

{RETYPE THE MENU 

(TSBA READ ACCESS 

(TSSR READ ACCESS 

(TSSR WRITE ACCESS 

(TSDB HIGH BYTE WRITE ACCESS 

{TSDB LOW BYTE WRITE ACCESS 

:TSDB MAINTENANCE MODE 

(TSDBX WRITE ACCESS 

{LEAVE THE TEST 



♦EXFMSG.-C 
♦1. (SP) 
SP.RO 
C»PNTF 
•4.SP 



•PRI07.ro 
CfSPRI 



«PRIOO.RO 
C»SPRI 



(ENTER MAINTENAfKTE MODE 
(READ TSBA REGISTER 
{LOOP UNTIL HALTED 



(ADDRESS OF TSSR REGISTER 
(POINT TO TSVOS'S REGISTERS 
{READ TSSR REGISTER 
{LOOP UNTIL STOPPED 



TSVS - HAROUARE TESTS MACRO MlllS Ol-FEB-84 17:02 



TEST 12: 


I SCOPE 


LOOPS 




6903 


077730 


004737 


020014' 


6904 


077734 


010001 




6905 


077736 


012703 


000002 


6906 


077742 


060503 




6907 


077744 


010113 




6908 


077746 


000776 




6909 








6910 








6911 


077750 


105065 


000000 


6912 


077754 


004737 


020014' 


6913 


077760 


010001 




6914 


077762 


012703 


000001 


6915 


077766 


060503 




6916 


077770 


110113 




6917 


077772 


000776 




6918 








6919 








6920 


077774 


105065 


000000 


6921 


100000 


004737 


020014' 


6922 


100004 


010001 




6923 


100006 


012703 


000000 


6924 


100012 


060503 




6925 


100014 


110113 




6926 


100016 


000776 




6927 








6928 


100020 


004737 


020014' 


6929 


100024 


OlOUil 




6930 


100026 


012703 


000000 


6931 


100032 


060503 




6932 


100034 


010113 




6933 








6934 


100036 


000776 




6935 








6936 


100040 


004737 


020014' 


6937 


100044 


010001 




6938 


100046 


012703 


000003 


6939 


100052 


060503 




6940 


100054 


110113 




6941 


100056 


000776 




6942 








6943 








6944 








6945 








6946 








6947 








6948 


100060 


010046 




6949 


100062 


113700 


177562 


6950 


100066 


042700 


000200 


6951 


100072 


122700 


000015 


6952 


100076 


001021 




6953 


100100 


012766 


077466' 


6954 


100106 


005066 


000004 


6955 


100112 


013737 


100160' 


6956 


100120 


013737 


100162' 


6957 


100126 


005737 


100156' 


6958 


100132 


001403 




6959 


100134 


042737 


000100 



20$: 
22$: 
25$: 

27$: 
30$: 

32$: 
35$: 

37$: 

40$: 

42$: 

loROCESS CONSO 



JSR 

nov 
nov 

ADO 
HOV 
BR 



CLRB 
JSR 

nov 
nov 

ADD 

novB 
BR 



CLRB 
JSR 

nov 
nov 

ADD 

novB 

BR 
JSR 

nov 
nov 

ADD 

nov 

BR 
JSR 

nov 
nov 

ADD 

novp 

BR 



60$: 



000002 

000060 
000062 



177560 



nov 
novB 

BIG 

CMPB 

BNE 

nov 

CLR 

nov 
nov 

TST 
BEQ 
BIC 



N2 



PC.GETPAT 

RO.Rl 

♦TSSR.RS 

RS.RS 

Rl.(R3) 

22$ 



TSDBCRS) 

PC.GETPAT 

RO.Rl 

«TS0BH.R3 

R5.R3 

R1.(R3) 

27$ 



TS0B(R5) 

PC.GETPAT 

RO.Rl 

«TS0B.R3 

R5.R3 

R1.(R3) 

32$ 

PC.GETPAT 

RO.Rl 

«TS0B.R3 

R5.R3 

R1.CR3) 

37$ 

PC.GETPAT 

RO.Rl 

♦TSSRH.R3 

R5.R3 

R1.(R3) 

42$ 



INTERRUPTS 



RO.-(SP) 
MTTIBFR.RO 
•200.ro 
•15. RO 
61$ 

•2$.2(SP) 
4(SP) 

TVECSAV.MTTIVEC 

TPRISAV.MTTIVEC»2 

TTION 

61$ 

•lOO.MTTICSR 



SEQ 233 



I READ THE DATA PATTERN 

jOATA PATTERN FOR LOOP 

I ADDRESS OF TSSR 

(POINT TO TSVOS'S REGISTERS 

i WRITE DATA TO TSSR 

(LOOP 



I ENTER MAINTENANCE nOOE 
iREAD THE DATA PATTERN 
I DATA PATTERN FOR LOOP 
{ADDRESS OF HIGH BYTE OF TSDB 
tPOINT TO TSVOS'S REGISTERS 
tURITE THE DATA TO TSDB. HIGH BYTE 
{LOOP UNTIL STOPPED 



{ENTER NAINTENANCE MODE 
{READ THE DATA PATTERN 
{DATA PATTERN FOR LOOP 
{ADDRESS OF TSSR 
{POINT TO TSV05'S REGISTERS 
{WRITE DATA TO TSSR. LOW BYTE 
{LOOP UNTIL HALTED BY OPERATOR 

{READ THE DATA PATTERN 
{DATA PATTERN FOR LOOP 
(SELECT TSDB 

{POINT TO TSV05'S REGISTERS 
{WRITE THE DATA PATTERN 

{LOOP UNTIL HALTED 

(READ THE DATA PATTERN 

{SAVE THE DATA PATTERN 

{BYTE ADDRESS OF TSSR. HIGH BYTE 

{POINT TO TSV05'S REGISTERS 

{WRITE THE DATA TO REGISTER 

{LOOP UNTIL HALTED 



{SAVE WORK REGISTER 

{GET THE OPERATOR INPUT 

{STRIP OFF PARITY BIT 

(IS IT A CARRIAGE RETURN ? 

(JUST EXIT IF NOT 

(RETURN TO HASTER HENU 

(FORCE PRIORITY ZERO 

(RESTORE SUPERVISOR VECTOR 

(RESTORE SUPERVISOR PRIORITY 

(ARE SUPERVISOR INTERRUPTS ENABLED ? 

(BRANCH IF YES 

(TURN OFF TTI INTERRUPTS 



B3 



TSVS • HAROWARe TESTS 
TEST 12: SCOPE LOOPS 



6960 
6961 
696^ 
6963 
6964 



6965 
6966 
6967 
6968 
6969 
6970 
6971 
6972 
6973 
6974 
6975 
6976 
6977 
6976 
6979 
69S0 
6961 
6962 
6963 
6964 
6965 
6966 
6967 
6966 
6969 
6990 
6991 
6992 
6993 
6994 
6995 
6996 
6997 
6996 
6999 
7000 
7001 



7002 
7003 



100142 
100144 

100146 
100146 
100146 
100150 
1001S2 



100156 
100160 
100162 



101106 
101106 
101106 
101110 



012600 
000002 



riACm) rilllS 01 -FEB 64 17:02 



61t: nOV 
RTI 



SEQ 234 



(SP)».m) 



104432 

000736 

000137 000200 



000000 
000000 
000000 



641: 

631 t EXIT TST 



651: 



JMP 



200 



iRESTORE REGISTER 

I RE TURN FROn INTERUPT 



I EXIT THE TEST 



iRETURN TO SUPERVISOR 



TRAP CtEXIT 
.WORD L10077- 



tLOCAL STORAGE FOR THIS TEST 



TTION: 

TVECSAV: 

TPRISAV: 



.WORD 0 
.WORD 0 
.UORD 0 



tWORO SET IF SUPERVISOR TTI INTER OFF 
tSAVE TTI VECTOR 
tSAVE TTI PRIORITY 















.EVEN 


100164 


100216' 


100271' 


100317' 


SCHENU: 


.WORD 


100200 


100470* 


100S26' 


100574* 






.UORO 


100216 


012 


123 


105 


lt< 




.ASCIZ 


100271 


012 


Oil 


060 


21. 




.ASCIZ 


100317 


Oil 


061 


Oil 


3t 




.ASCIZ 


100343 


Oil 


062 


Oil 


4t 




.ASCIZ 


100367 


Oil 


063 


Oil 


5*. 




.ASCIZ 


100431 


Oil 


064 


Oil 


6»! 




.ASCIZ 


100470 


Oil 


065 


Oil 


7» 




.ASCIZ 


100526 


Oil 


066 


Oil 


6t 




.ASCIZ 


100574 


Oil 


067 


Oil 


9t. 




.ASCIZ 


100643 


Oil 


070 


Oil 


lOt: 


.ASCIZ 


100706 


000 






lit; 


.ASCIZ 


100707 


124 


171 


160 


12t: 


.ASCIZ 


100747 


045 


116 


045 


EXFHSG: 


.ASCIZ 


10102S 


123 


164 


141 


T40NE: 


.ASCIZ 


101072 


123 


143 


157 


TST40ID: 





iMENU FOR OPERATOR INPUT FOR SCOPE LOOPS 



7t.St.9l.lOt.ll9.129.0 



104401 



.EVEN 
ENDTST 



ENDHOO 



<12>' SELECT SCOPE LOOP FR91 FXLOUING OPTIONS:' 
<12>' 0 Di«pUy This rWnu' 

1 TSBA R«ad Accm«' 

2 TSSR R«ad Accm«' 

3 Initially* (TSSR Ur;t« Acc«m)' 

4 TSOB High Byt« Urit« Acc«M' 

5 TSOB LOM Byt« Urit« Accm«' 

6 TSOB ri«;nt«narK« Mode Ur;t« Acc«s«' 

7 TSDBX (TSSR High Byte) Urlf Acc«s« 
S R«tum to DiagnMtic Supervisor' 

< 

Typo RETURN To Stop Scopo Loopo' 

itfNtfA Extondod Footuroo Switch Not On * 

Stand -olono Scopo Loopo Not EHOCutod' 

ASCIZ ' Scopo Loopo' 



I 10077: 



TRAP 



CIETST 



rlsT l2?*SC0K^Lo8ffi^'* Ol-FEB-84 I7s02 



C3 



SF.Q 235 



1 

7 

II 

19 101110 
101110 

20 
21 
22 
23 
24 
25 
26 
27 
26 
29 
30 
31 

32 101110 
101110 
101112 

33 

34 101112 
101112 
101114 
101116 
101120 

35 101122 
101122 
101124 
101126 
101130 

36 

37 101132 

101132 

36 101132 

39 101166 

40 101212 
41 

42 
43 
44 
45 
46 
47 
46 
49 
SO 
51 
52 

53 101242 
101242 
101244 

54 

55 101244 
101244 



TSV6:: 



.TITLE TSV6 - PARAMETER COOING 



BGNNOO TSV6 



.SBTTL HMOUME PARAMETER COOING SECTION 



000010 



000031 
101132' 
160010 
177776 

Q01031 
101166' 
000000 
000776 



104 

111 
111 



105 
116 
116 



THE HARDWARE PARAMETER COOING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILO P- TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOU THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 

BGNHRO 
.UORO LlOlOO-LiHARO/2 

LIHARO:: 

GPRMA HPMl.O.O. 160010. 177776. YES 

.WORD TICOOE 

.UORO HPMl 

.UORD TILOLIM 

.UORO TtHILIM 

GPRMA HPM2.2.0.0.776.YES 

.UORO TtCOOE 

.UORO HPM2 

.UORO TtLOLIM 

.WORD TIHILIM 

iGPRMO HPH3.4.0.S40.0.7.YES 
ENOHRO 
.EVEN 

LlOlOO: 

126 MPMl: .ASCIZ 'DEVICE ADDRESS (TSBA/TSOB) ' 

124 HPn2i .ASCIZ 'INTERRUPT VECTOR 

124 HPMSi .ASCIZ 'INTERRUPT PRIORITY 
.EVEN 

.SBTTL SOFTWARE PARAMETER COOING SECTION 



iGET TSBA/TSOB REGISTER ADDRESS. 



tGET VECTOR ADDRESS. 



iGET INTERRUPT PRIORITY. 



THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH C0S«1UNICATI0NS 
WITH THE OPERATOR. 



000003 



001130 



LISOFT: 



BGNSFT 

.WORD L10101<LtS0FT/2 

*GPRML SPMl.O.-l.YES 
GPRML SPM4,2, -l.YES 
.WORD T*C0DE 



I GET TRANSPORT TEST FLAG, 
i GET ITERATION CONTROL. 



D3 



01 FEB S4 17:02 



101246 
101250 

56 
57 

5« 101252 
101252 

59 
60 

61 101252 

62 101S02 
63 

64 

65 
66 
67 

6a 

69 
70 
71 
72 
73 

74 101332 

75 
76 

77 101352 

78 

79 

60 

81 

82 101334 

101334 
101336 
101340 

83 101340 
84 

85 
86 
87 

88 101340 

89 101340 
101340 
101342 
101344 

90 101344 

91 101346 

92 101350 

93 101352 
101352 

94 101352 
95 

96 



101502' 
177777 



105 
111 



116 
116 



101 
110 



000000 
000000 



000000 
000003 

172522 
000224 
000240 



000001 



SEQ 236 



I 
I 

LlOlOl: 



SPMl: 
SPm: 
lSPn6: 
lSP«75 



.WORD 

.WORD 

GPRnO 

GPRMO 

ENOSFT 

.EVEN 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.SBTTL 



SPm 

-1 

SPM6. 4. D. 7777,0. 7777, TES 
SPrt7.6.0, 7777.0. 7777, YES 



•ENABLE TRANSPORT TESTS 
•INHIBIT ITERATIONS 
•PER TEST ERROR LIMIT 
PER UNIT ERROR LIMIT 
PATCH AREA 



I GET LOCAL ERROR LIMIT 
t GET GLOBAL ERROR LIMIT 



t FINALLY A GENEROUS PATCH AREA. 

! AND AN ADJUSTMENT TO ACCOUNT TOR THE "LASTAO BIT7' 

t DESCRIBED IN "SUPPRG.MEM" (FOR REV C). 

t 



HACK 



PATCH: 
I 



.BLKW 
.BLKU 



32. 
1. 



LILAST:: 



.IF NZ..6377 
.-.!377»l 
.ENDC 
LASTAD 
.EVEN 
. WORD 
.WORD 



I SET LAST USED ADDRESS. 



0 
0 



ENOMOO 
.SBTTL 



t 

I -- 



L10102: 



L 10104: 



HARD COOED P- TABLE 

DIAGNOSTIC IS PRE -PARAMETERIZED PER THIS TABLE 

BGNSETUP 1 
BGNPTAB 

.WORD 0 

.WORD L10104../2-1 



.UORO 
.WORD 
.WORD 
ENDPTAB 

ENDSETUP 
.END 



172522 

224 

PRI05 



TSV6 PARAhETER 
STHBOL TABLE 

AOOSSR 011756RG 
AOR - 000020 G 
AnBTSS 006447R 
ASSEMB- 000010 
A1716 - 000003 
BAOOAT 0031S6RG 
BAOSSR 01S510RG 
BOVPCR- 177520 G 
BENBSU OO22S0RG 
BXE - 040000 
6ZT0 - GOOOOl G 
BITOO - 000001 G 
BITOl • 000002 G 
BZT02 • 000004 G 
BIT03 - 000010 G 
BIT04 - 000020 G 
BITOS - 000040 G 
BIT06 - 000100 G 
BIT07 • 000200 G 
BITOe • 000400 G 
BIT09 • 001000 G 
BITl • 000002 G 
BITIO - 002000 G 
BITll - 004000 G 
BIT12 - 010000 G 
BIT13 - 020000 G 
BIT14 - 040000 G 
Bins - 100000 G 
BIT2 - 000004 G 
BIT3 - 000010 G 
BIT4 - 000020 G 
BITS - 000040 G 
BIT6 - 000100 G 
BIT7 - 000200 G 
BITa - 000400 G 
BIT9 - 001000 G 
BOE ■ 000400 G 
BRINIT 0044S3R 
BSELO - 000000 
BSELl - 000001 
CHKAre 015654R 
CmnAN 020S20RG 
CHKTSS 0L6146R 
CKOROP 017014R 
CKEMAX 016714R 
CKHSG 011170RG 
CKnSG2 011310RG 
CKRAM 010724RG 
CKRAn2 0110S4RG 
CnOPKT 021010RG 
Of>MEH 017SO0R 
COHFIG 017062R 
COUNT 002310RG 
CSRAOO 002206RG 
CTAB 003164RG 
CTABE 003176RG 
CTABM 003164RG 



CODING MACRO NlllS Ol-FEB-04 17:02 



002 


CIAU - 


000052 


OEVDRO 




C9AUT0- 


000061 


OEVNRO 


002 C»BRK - 


000022 


OEVNXR 




C»SEG« 


000004 


OEVONL 




CIBSUB- 


000002 


OEVSUH 


002 C»CEFG> 


000045 


OFPTBL 


002 CICLCK- 


000062 


OIAGMC* 




C«aEA« 


000012 


DICES - 


002 CICLOS- 


000035 


OSBINT 




c»api- 


000006 


DUAD12 




C«CVEC- 


000036 


OUFLG 




CIOCLN* 


000044 


OUHHY 




CIOOOU- 


000051 


EF.CON- 




CiORPT- 


000024 


EF.NEU* 




ClOU • 


000053 


EF.PUR- 




CIEOIT- 


000003 


EF.RES* 




CtEROF- 


000055 


EF.STA- 




CIERMR- 


000056 


Emxoi.1 




C«EIWO« 


000060 


EN 




CIERST- 


000054 


ENAINT 




CIERSO- 


000057 


ENVIRN 




CIESCA- 


000010 


EPPTSU 




C»ESE6« 


ooooos 


EPRTl 




CtESUB- 


000003 


EPRT2 




CIETST- 


000001 


ERCH 




CIEXIT- 


0000S2 


ERfMI 




CIGETB- 


000026 


ERRK 




CIGETU- 


000027 


ERRLO 




CIGTMN- 


000043 


ERRNO - 




C»GPHR« 


000042 


ERRVEC- 




CIGPLO- 


000030 


ERTABE 




CtGPRI- 


000040 


ERTABL 




CtlNIT- 


000011 


ESUH 




CIINLP- 


000020 


EVL • 




CIHANI- 


000050 


EX8CNT- 




CIHEM > 


000031 


EXFTfSG 




CtnSG • 


000023 


EXPBRE 


002 


CIOPEN- 


000034 


EXPO 




CtPNTB- 


000014 


EXPGOT 




C$PNTF- 


000017 


EXPGT2 


002 


CIPNTS- 


000016 


EXPHSG 


002 


CIPNTX* 


000015 


EXPREC 


002 


CIQIO - 


000377 


EXTA 


002 


C$ROBU« 


000007 


EXTEND 


002 


CtREFG* 


000047 


EXTFEA 


002 


CtRESE- 


000033 


EtEND • 


002 


CIREVI- 


000003 


EtLOAD- 


002 


CtRFLA- 


000021 


FATERR- 


002 


CiRPT • 


000025 


FATFLG 


002 


CtSEFG- 


000046 


FERCn 


002 


C$SPRI- 


000041 


FIFEXP 


002 


CtSVEC- 


000037 


FIFINS 


002 


CITPRI- 


000013 


FIF2MS 


002 


DATA 


002312RG 


002 FILLNE 


002 


OATASC 


020052R 


002 FNOINT 


002 


OEBVJGH 


011442R 


002 FORCER 


002 OEVCNT 


002220RG 


002 FREE 



E3 

SEQ 237 



02S146R 


002 FREEHI 


005130R 


002 INTCPC 


01S760R 


002 


023065R 


002 FRESIZ 


003126RG 


002 INTFLA 


01S7SSR 


002 


023003R 


002 FUSI 


004113R 


002 INTnAS 


01S7S4R 


002 


022733R 


002 FIAU • 


000015 


INTR 


016026RG 


002 


022676R 


002 FIAUTO- 


000020 


INTREC 


002224RG 


002 


002156RG 


002 FIBGN • 


000040 


INTVEC 


0157S6R 


002 


000000 


F9CLEA- 


000007 


INTX 


004274R 


002 


000001 


FlOU • 


000016 


INVERT 


0207S4RG 


002 


016014R 


002 FIEND • 


000041 


IOKCKI> 


000200 


004637R 


002 FIHARO- 


000004 


lOKSTP* 


000001 




003112R6 


002 FIHU • 


000013 


IPRI 


002212RG 


002 


003062R 


002 FIINIT- 


000006 


ISR • 


000100 G 


000036 G 


FtJHP • 


000050 


IVEC 


002210RG 


002 


00003S G 


FtHOD • 


000000 


IXE • 


004000 G 


000034 G 


FirtSG • 


000011 


IIAU • 


000041 




000037 G 


FtPROT- 


000021 


I • AUTO* 


000041 




000040 G 


FIPUR • 


000017 


IICLN - 


000041 




016611R 


002 FtRPT > 


000012 


ItOU • 


000041 




000000 


FtSEG • 


000003 


IIHRO • 


000041 




01S762R 


002 FtSQFT* 


000005 


IIINIT- 


000041 




0204SOR 


002 FISRV - 


000010 


ItHOO • 


000041 




002200RG 


002 FISUB • 


000002 


I«NSG • 


000041 




006172R 


002 FISU • 


000014 


IIPROT- 


000040 




006172R 


002 FITEST* 


000001 


ItPTAB- 


000041 




011S4SR 


002 GOOAT 


003160R6 


002 I«PUR - 


000041 




002236RG 


002 GERRNA 


002174RG 


002 IIRPT • 


000041 




016S70R 


002 GETPAT 


020014RG 


002 XISEG • 


000041 




002240RG 


002 GETSEL 


020076RG 


002 ItSETU* 


000041 




002261 


GICNTO- 


000200 


IISFT • 


000041 




000004 G 


GIOELH- 


000372 


IISRV - 


000041 




003376R 


002 GIOISP* 


000003 


I«SUB • 


000041 




003176R 


002 GIEXCP* 


000400 


I«TST • 


000041 




016S72R 


002 G«HILI« 


000002 


JijriP • 


000167 




000004 G 


GtLOLI- 


000001 


KIPARO* 


172340 




000010 


GtNO • 


000000 


KIPARl- 


172342 




100747R 


002 GIQFFS- 


000400 


KIPAR2" 


172344 




015312RG 


002 GIQFSI- 


000376 


KIPAR3- 


172346 




0022S2R6 


002 GIPRNA- 


000001 


KIPAR4* 


172350 




004527R 


002 GtPRNO- 


000002 


KIPAR5- 


172352 




004563R 


002 GIPRML* 


000000 


KIPAR6- 


172354 




002S22RG 


002 GIRADA- 


000140 


KIPAR7- 


172356 




015304RG 


002 GIRAOB- 


000000 


KIPORO" 


172300 




005604R 


002 GtRAOO- 


000040 


KIPORl- 


172302 




005602R 


002 GIRAOL- 


000120 


KIP0R2* 


172304 




002226RG 


002 GIRAOO- 


000020 


KIP0R3- 


172306 




002100 


GtXFER- 


000004 


KIP0R4- 


172310 




000035 


GtYES - 


000010 


KIP0R5- 


172312 




000060 


HIAOOR- 


001400 


KIP0R6- 


172314 




002222RG 


002 HOE 


100000 G 


KIP0R7- 


172316 




0115S2R 


002 HPMl 


101132R 


002 KTENAB 


003134RG 


002 


012000RG 


002 Hm2 


101166R 


002 KTFLG 


003132RG 


002 


012052R 


002 HPn3 


101212R 


002 KTINIT 


020536R 


002 


012121R 


002 IBE • 


010000 G 


KTOFF 


017106R 


002 


017234R 


002 lOU - 


000040 G 


KTON 


017070R 


002 


004211R 


002 lER - 


020000 G 


LERRHA 


002172RG 


002 


002176RG 


002 IFAULT 


004252R 


002 LERRNO- 


000000 




003124RG 


002 INCERK 


016656R 


002 LISTAL- 


000001 





TSV6 PARAMETER COOING MACRO M1115 Ol-FEB-84 17:02 
SYMBOL TABLE 



Loe 


040000 G 




LIUNIT 


002012PG 


002 


L10071 


LOOPCN 


0022 16PG 


002 


L 10000 


002164R 


002 


L 10072 


LOOPCO 


012736R 


002 


LlOOOl 


0021 76P 


002 


L10C^3 


LOOPFL 


005162PG 


002 


L 10002 


005600R 


002 


L 10074 


LOT 


000010 G 




L 10003 


011654R 


002 


L 10075 


LIACP 


002I10RG 


002 


L 10004 


011672R 


002 


L 10076 


LIAPT 


002036RG 


002 


L 10005 


011710R 


002 


L10077 


LIAU 


022122PG 


002 


L10006 


011716R 


002 


L 10100 


LIAUT 


002070PG 


002 


L10007 


011734R 


002 


LlOlOl 


LI AUTO 


022326RG 


002 


L 10010 


011752R 


002 


L10102 


LICCP 


002106RG 


002 


LlOOll 


011776R 


002 


L10104 


LICLEA 


022406PG 


002 


L10012 


012050R 


002 


HENADD 


LICO 


002052ftG 


002 


L10013 


012220R 


002 


HENCK 


LIDEPO 


00201 IPG 


002 


L 100 14 


012734R 


002 


HENASC 


LIDESC 


003410RG 


002 


L 10015 


013562R 


002 


MENERR 


LIDESP 


002076AG 


002 


L10016 


013604R 


002 


HENRES 


L IDE VP 


002060RG 


002 


L 1001 7 


015310R 


002 


niMENU 


LIOISP 


002124RG 


002 


L 10020 


015316R 


002 


HNRO • 


LIOLY 


002116AG 


002 


L10021 


015324R 


002 


MHVEC ■ 


LIDTP 


00204 ORG 


002 


L 10022 


015336R 


002 


NSA.FRa 


LIOTYP 


002034RG 


002 


L 10023 


015360R 


002 


NSA.NO* 


LlOU 


022220RG 


002 


L 10024 


015406R 


002 


nSA.NR- 


LIOUT 


002072RG 


002 


L 10025 


015546R 


002 


HSA.VO- 


LIDVTY 


005402RG 


002 


L 10026 


016056R 


002 


nSGEXP 


LIEF 


0020S2RG 


002 


L 10030 


022052R 


002 


HSGLOO 


LIENVI 


002044RG 


002 


L 10031 


022216R 


002 


HSGSTA 


LIETP 


002102RG 


002 


L 10032 


022324R 


002 


nSGSUB 


LIEXPl 


002046RG 


002 


L 10033 


022404R 


002 


MS. ATT* 


LIEXP4 


002064RG 


002 


L 10034 


022432R 


002 


MS.EXT" 


LIEXP5 


002066RG 


002 


L 10035 


022674R 


002 


NS.RSD* 


LIHAPO 


101112RG 


002 


L 10036 


024204R 


002 


MS.RSF- 


LIHIME 


002120RG 


002 


L10037 


0261 76R 


002 


MS.RST- 


LIHPCP 


002016RG 


002 


L 10040 


024460R 


002 


NBA • 


LIHPTP 


002022RG 


002 


L10041 


024724R 


002 


NEUPAS 


LIHU 


0021S6RG 


002 


L10042 


031522R 


002 


NOOEV 


LIICP 


002104RG 


002 


L10043 


026552R 


002 


NOEXTF 


LIINIT 


021326RG 


002 


L 10044 


027042R 


002 


NOINIT 


LILAuP 


002026RG 


002 


L10045 


027340R 


002 


NOINTR 


LILAST 


I01340RG 


002 


L10046 


027722R 


002 


NOITS 


LILuAO 


^^^^^^ A ^^^^^^^^ 

002100PG 


002 


L10047 


034312R 


002 


NOHAN 


LILUN 


0020 74RG 


002 


L 10050 


032056R 


002 


NOHEH 


LinREV 


^^^^^^ 
0020S0RG 


002 


L10051 


032450R 


002 


NP,IR • 


LINAnE 


002000RG 


002 


L 10052 


033056R 


002 


NP.LOO* 


LIPRIu 


002042RG 


002 


L 10053 


0401 14R 


002 


NP.OUT- 


LIPROT 


021316nG 


002 


L 10054 


035376R 


002 


NP.URP* 


LIPRT 


002112RG 


002 


L 10055 


036330R 


002 


NSI 


LiKcPP 


002062RG 


002 


L 10056 


050226R 


002 


NSINIT 


LiRcV 


002010RG 


002 


L 10057 


040420R 


002 


NUL 


1 tODT 




002 


L 10060 


041650R 


002 


NIR.CR 


LISOTT 


101244RG 


002 


L10061 


043170R 


002 


Nxn 


LISPC 


002056RG 


002 


L10062 


043546R 


002 


NXHFLG 


LISPCP 


002020RG 


002 


L10063 


045020R 


002 


NXMHI 


LISP TP 


002024RG 


002 


L10064 


046064R 


002 


NXMLO 


LISTA 


002030RG 


002 


L 10065 


051506R 


002 


NXMTST 


LISU 


002166RG 


002 


L 10066 


062334R 


002 


NXR 


LITEST 


0021 L4RG 


002 


L10067 


053512R 


002 


NXRERR 


LITIML 


002014RG 


002 


L 10070 


055000R 


002 


NXRX 



F3 

SEQ 238 



056250R 


002 


NX TO 


021572R 


002 PRHESS 


014052R 


002 


057514R 


002 


OFL 


000100 


PRffM 


002320RG 


002 


0664 14R 


002 


ONEFIL- 


000000 


PRMSGE 


014362RG 


002 


064544R 


002 


OIAPTS- 


000000 


PRtlSGO 


014542R 


002 


074256R 


002 


OIAU - 


000001 


PRHSGl 


014607R 


002 


077430R 


002 


0I8GNR- 


000001 


PRMSG2 


014645R 


002 


101106R 


002 


OIBGNS* 


000001 


PROASC 


014230R 


002 


101132R 


002 


OlOU • 


OOOOOl 


PRIASC 


014275R 


002 


101252R 


002 


OIERRT- 


000000 


PST32U 


003152RG 


002 


101344R 


002 


OIGNSU- 


OOOOOl 


PUNIT 


022054R 


002 


101S52R 


002 


OIPOIN* 


OOOOOl 


PW.Oll- 


000021 


013564RG 


002 


OISETU^ 


000000 


py.oi3- 


000022 




021026RG 


002 


PASRPT 


021624R 


002 PW.D22* 


000020 




020267R 


002 


PATCH 


101332RG 


002 Py.NOP* 


000000 




0202 14R 


002 


PATDAT 


020050R 


002 PU.NOl- 


000023 




020316R 


002 


PC. ERA • 


002400 


PW.RDE* 


000024 




073142R 


002 


PC*IER» 


002000 


py.ROR* 


OOOOOl 




170200 




PC.NOO* 


001000 


PW.RDS- 


000005 




000250 




PC.REL* 


000000 


PW.RFI- 


000003 




000006 




PC.REW« 


000400 


PW.WCT- 


000006 




000000 




PK8CNT* 


000006 


PU.UFI- 


000004 




000004 




PKHI • 


000004 


PW.WFM- 


000007 




000002 




PKLOU " 


000002 


PW.WMI- 


000010 




011754RG 


002 


PKTAOO 


007366R 


002 PW.UI^» 


000011 




012674RG 


002 


PKTFRM 


007330R 


002 PU.UTR" 


000002 




012160RG 


002 


PKTGET 


011674RG 


002 P.ACK « 


100000 




013552RG 


002 


PKTMES 


011720RG 


002 P. 010 ■ 


000037 




000006 




PKTRAM 


004741RG 


002 P.CONT- 


000012 




000200 




PKTSER 


011656RG 


002 P.CVC • 


040000 




000001 




PNT 


001000 G 


P.FMT ■ 


000140 




000020 




PRAfPK 


013606R 


002 P.FORH- 


000011 




000010 




PRASC 


014333R 


002 P. GETS- 


000017 




002000 




PRBEXP 


015300R 


002 P. IE • 


000200 




021560R 


002 PR8HSG 


015146R 


002 P.INIT- 


000013 




003114RG 


002 


PRBREC 


015302R 


002 P.HOOE* 


007400 




027716R 


002 


PRBTOT 


015233R 


002 P.OPP • 


020000 




004331R 


002 


PRBYTE 


014732RG 


002 P.POSI- 


000010 




004215R 


002 


PRI 


002000 G 


P. RE AO* 


OOOOOl 




002170RG 


002 


PRIAOO 


007772R 


002 P. SUB - 


010000 




020354R 


002 


PRIAO 


01004 2R 


002 P.URIT- 


000005 




005454R 


002 


PRI8X0 


007424RG 


002 P.URTC- 


000004 




000200 




PRIEQU 


007672R 


002 P.URTS- 


000006 




000040 




PRIPKT 


007202RG 


002 QVP 


002204RG 


002 


000100 




PRIRAM 


007700R 


002 RAHASC 


013766R 


002 


000020 




PRITAO 


010106R 


002 RAMDAT 


002242RG 


002 


004146R 


002 


PRITSS 


005636R 


002 RAHERR 


015320RG 


002 


004403R 


002 


PRITO 


010170R 


002 RAMEXP 


015340RG 


002 


004523R 


002 


PRITl 


010233R 


002 RAMFOR 


007730R 


002 


004524R 


002 


PRIXOR 


007554RG 


002 RAnSIZ 


002502HG 


002 


004000 




PRIOO - 


000000 G 


RANT AO 


015S26RG 


002 


003136RG 


002 


PRIOl • 


000040 G 


RCVHIA 


002304RG 


002 


003142RG 


002 


PRI02 • 


000100 G 


RCVLOA 


002S06RG 


002 


003140RG 


002 


PRI03 - 


000140 G 


ROERR 


005202R 


002 


021222R 


002 


PRI04 • 


000200 G 


RECHSG 


002466RG 


002 


003734R 


002 


PRI05 • 


000240 G 


RECV 


002234RG 


002 


005550RG 


002 


PRI06 • 


000300 G 


REGSAV 


0L7760ft 


002 


003773R 


002 PRI07 • 


000340 G 


RETERR 


005S66R 


002 



TSV6 PMtAnETER COOING HACRO HlllS Oi-rEB-64 17:02 
SYMBOL TABLE 



REWIND 


010624RG 


002 


Sl.IlR- 


020000 




TSV2 


Rric»eE- 


000167 




S1.I2R- 


040000 




TSV3 


RMCHEN- 


000200 




Sl.PAR- 


100000 




TSV4 


RMMSGB- 


000215 




S2.ATI- 


000010 




TSV5 


RMMSGE- 


000234 




S2.BTI- 


000004 




TSV6 


RMPKTB- 


000201 




S2.DIM- 


000200 




TTIBFR- 


Rt»>KTE- 


000210 




S2.ILU- 


000100 




TTICSR" 


RMR 


010000 




S2.INR- 


000020 




TTION 


RUPACK 


010720R 


002 


S2.0UT- 


000040 




TTI0N2 


SC 


100000 




S2.UN0- 


000003 




TTIVEC- 


SCE 


020000 




TBLENO- 


003062RG 


002 


TVECSA 


SCHERR 


00S274R 


002 


TCOASC 


006310R 


002 


TVSAV2 


SCME 


00500 7R 


002 


TCOCOD 


006510R 


002 


TIARGC- 


SCnENU 


100164R 


002 


TEMPI 


003116RG 


002 


TICODE- 


SDELAY 


010470R 


002 


TEMP2 


003120RG 


002 


TIERRN- 


SELASC 


020262R 


002 


TERCLS- 


000016 




TIEXCP- 


SELDAT- 


000004 




TESTNO- 


000014 




TIFLAG- 


SEL2 - 


000002 




TEXASC 


006247R 


002 


TIFREE- 


SETMAP 


017150R 


002 


TFCASC 


006351R 


002 


TIGMAN- 


SETU 


021656R 


002 


TIMEXP 


015S62RG 


002 


TIHILI- 


SFFMSG 


011712RG 


002 


TIMSGO 


015410R 


002 


TILAST- 


SFHERR 


005701R 


002 


TINERR 


011631R 


002 


TILXI- 


SFIERR 


003646R 


002 


TMPBFR 


002632RG 


002 


TILSYM- 


SFIMSG 


011644RG 


002 


TNAM 


016516R 


002 


TILTNO- 


SFPTBL 


002166RG 


002 


TPRISA 


100162R 


002 


TINEST- 


SIFLAG 


003154RG 


002 


TPSAV2 


071210R 


002 


TINSO ■ 


SIMSG 


011576R 


002 


TRANST 


002166RG 


002 


TINSl • 


SKIPT 


003400R 


002 


TSBA - 


000000 G 




TtNS2 - 


SOFINI 


01S604RG 


002 


TS6AH - 


000001 G 




TtNS3 - 


SPACE 


010300RG 


002 


TSOB - 


000000 G 




TIPCNT- 


SPMl 


1012S2R 


002 


TSOBH - 


000001 G 




TIPTAB- 


SPm 


101302R 


002 


TSFCOD 


007050R 


002 


TIPTHV- 


SRC 


177572 




TSREJ - 


000006 




TIPTNU- 


SRI 


177574 




TSSOEF 


006420R 


002 


TtSAVL- 


SR2 


177576 




TSSR - 


000002 G 




TISEGL- 


SR5 


172516 




TSSR6I 


003476RG 


002 


TISEKO- 


SSR 


000200 




TSSRFO 


006227R 


002 


TISIZE- 


STATCO 


012222R 


002 


TSSRH - 


000003 G 




TtSUBN- 


SVCGBL- 


000000 




TSSX 


004014R 


002 


TITAGL- 


SVCINS* 


000000 




TSTBLK 


0027S2RG 


002 


TITAGN- 


SVCSUB- 


000001 




TSTCNT 


002214RG 


002 


TITEMP- 


SVCTAG" 


000000 




TSTENO 


016532R 


002 


TITEST- 


SVCTST" 


000001 




TSTFLA 


002314RG 


002 


TITSTM- 


SILSYM- 


010000 




TSTLOO 


016270RG 


002 


TITSTS- 


SO.IOB- 


000010 




TSTPTR 


002316RG 


002 


THAU - 


SO.IFB- 


000002 




TSTSET 


016322RG 


002 


TIIAUT- 


SO.IFP- 


000001 




TST12I 


030200R 


002 


T»ICLE- 


SO.ILO> 


000020 




TST15I 


023662R 


002 


TIIOAT- 


SO. ION" 


000040 




TST14I 


02602 IR 


002 


TIIDU • 


SO.IRD- 


OOOlOO 




TST15I 


034163R 


002 


TttHAR- 


SO.IRU> 


000004 




TST16I 


036372R 


002 


TtlHU - 


SO. ISP- 


000200 




TST17I 


046346R 


002 


TttlNI- 


SI. ICE- 


002000 




TSTiai 


050736R 


002 


TIIMSG- 


SI. lEO- 


010000 




TST19I 


057722R 


002 


TIIPC - 


Sl.IFM- 


001000 




TST20I 


064722R 


002 


TIIPRO- 


SI.IHE- 


000400 




TST39I 


077402R 


002 


T««PTA- 


Sl.IID- 


004000 




TST40I 


101072R 


002 


TURPI- 



G3 

S£Q 239 



002000RG 


002 


TIISEG- 


010000 




T14RST 


026124R 


002 


002176RG 


002 


TltSCF* 


010101 




T14SSR 


025553R 


002 


021316RG 


002 


TtlSRV* 


010C26 




T14TS6 


0257S5R 


002 


0232 16RG 


002 


TtlSUB- 


010074 




T142Re 


0254S6R 


002 


lOlllORG 


002 


TIISU - 


010001 




T1SA»12 


03S672ft 


002 


177562 G 




TMTES- 


010077 




TISAHS 


0SS77Sft 


002 


177560 G 




Tl 


023216RG 


002 


TlSAm 


03407Sft 


00? 


100156R 


002 


TIO 


0664 16RG 


002 


TISBFR 


0SS122ft 


002 


071204R 


002 


Til 


074260RG 


002 


T1S8F2 


03S610R 


002 


000060 G 




T12 


077432RG 


002 


T15BS0 


03S610ft 


002 


100160R 


002 


T12BFR 


030012R 


002 


T158S1 


03S611R 


002 


071206R 


002 


T12BKG 


030467R 


002 


T150AT 


033110ft 


002 


000001 




T12BLK 


030044R 


002 


T15L00 


031SS4ft 


002 


001130 




T12CHA 


031460R 


002 


T15PAC 


033100ft 


002 


002261 




T12CKR 


031240RG 


002 


T15PK2 


033600ft 


002 


000000 




T12C0N 


031046R 


002 


T15RES 


034202ft 


002 


000040 




T120AT 


030000R 


002 


T15RT2 


0342S4ft 


002 


101352R 


002 


T12DPR 


030646R 


002 


T15SSR 


033616R 


002 


000000 




T12GET 


030226R 


002 


T15S2 


033612ft 


002 


000776 




T12HIA 


030032R 


002 


T15S3 


033614ft 


002 


000001 




T12KT 


030O40R 


002 


T16BEN 


037770ft 


002 


000000 




T12L0A 


030034R 


002 


T16BFR 


037742ft 


002 


010000 




T12L00 


026226R 


002 


T16BFS 


037762ft 


002 


000014 




T12MSG 


03037 IR 


002 


T16CLR 


037606ft 


002 


177777 




T12NIN 


030555R 


002 


T16DAT 


037730ft 


002 


000000 




T12NXM 


0307 37R 


002 


T16DT2 


040010ft 


002 


000005 




T12PAC 


027770R 


002 


T 16001 


036362ft 


002 


000002 




T12PAR 


030036R 


002 


T 16028 


036364ft 


002 


000003 




T12SET 


031416R 


002 


T 16053 


036366ft 


002 


000000 




T12SUR 


031350R 


002 


T16078 


036370ft 


002 


010103 




T12TBE 


030176R 


002 


T16LEN 


036712ft 


002 


000001 




T12URT 


030302R 


002 


T16L00 


034332ft 


002 


000001 




T121L0 


026340R 


002 


T16PAC 


037720ft 


002 


177777 




T122L0 


026674R 


002 


T16PK2 


040000ft 


002 


177777 




T123L0 


027114R 


002 


T16REJ 


037024R 


002 


010000 




T124L0 


027514R 


002 


T16RES 


037540R 


002 


000005 




T124TS 


030042R 


002 


T16SEX 


037700R 


002 


000000 




T13BFR 


023642R 


002 


T16SRD 


037632R 


002 


177777 




T13DAT 


023630R 


002 


T16SSR 


036442R 


002 


010105 




T13L00 


023234R 


002 


T16TS8 


036610R 


002 


000000 




T13MEM 


023735R 


002 


T16T01 


037141R 


00? 


000014 




T13NBA 


023774R 


002 


T16T28 


037240R 


002 


177777 




T13PAC 


023620R 


002 


T16T53 


037340R 


002 


000001 




T13RES 


024136R 


002 


T16T78 


037440R 


002 


010031 




T13SSR 


02404 7R 


002 


T16UMI 


037652R 


002 


010033 




T14BFR 


0247S6R 


002 


T162SS 


0364 7 7R 


002 


010034 




T14BS0 


024750R 


002 


T163SS 


03654 3R 


002 


010104 




T14BS1 


024751R 


002 


T17BEN 


050102R 


002 


010032 




T14BS2 


024752R 


002 


T17BFR 


047762R 


002 


010100 




T14DAT 


024750R 


002 


T17BFS 


050002R 


002 


010000 




T14DTA 


025370R 


002 


T17CLE 


047666R 


002 


010030 




T14L00 


024224R 


002 


T17CLR 


047S00R 


002 


010025 




T14NBA 


025402R 


002 


T17DAT 


047750R 


002 


000001 




T14NXN 


02564 3R 


002 


T17DT2 


050120R 


002 


010027 




T14PAC 


024740R 


002 


T17EXE 


046244R 


002 


010103 




T14PK2 


025360ft 


002 


T17EXP 


046122R 


002 


010035 




T14RES 


026066R 


002 


T17EXS 


046142R 


002 
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T17L00 


040I44R 


002 


T19RFI 


061606R 


002 


T203SS 


065052R 


T17MSK 


046I16R 


002 


T19RSF 


06154 OR 


002 


T204SS 


065117R 


T17PAC 


047740R 


002 


T19RST 


061370R 


002 


T205SS 


065162R 


TI7PK2 


0501 lOR 


002 


T19SET 


061760R 


002 


T206SS 


065226R 


T17RFI 


047646R 


002 


T19SEX 


061722R 


002 


T208SS 


06527 IR 


Tl7RSr 


047544R 


002 


T19SNP 


061562R 


002 


T23A 


003144RG 


T17SET 


047706R 


002 


T19SRD 


061520R 


002 


T23B 


003146RG 


T17SNP 


047S66R 


002 


T19SSR 


057763R 


002 


T3 


026200RG 


T17SR0 


047524R 


002 


T19UCT 


061662R 


002 


T3BFLG 


0031S0RG 


T17SSR 


046365R 


002 


T19WFJ 


061626R 


002 


T3.1 


026226R 


Ti7uro 


046244R 


002 


T19WFM 


061702R 


002 


T3,2 


026S66R 


T17Wri 


0476120 


002 


T19WST 


061263R 


002 


T3.3 


027056R 


T171CH 


046705R 


002 


T191CM 


060420R 


002 


T3.4 


027354R 


T172CM 


046767R 


002 


T192D1 


060502R 


002 


T38ASC 


074211R 


T172SS 


046422R 


002 


T192SS 


060020R 


002 


T38ASN 


074230R 


T173CM 


047063R 


002 


Ti93CM 


060576R 


002 


T38AS0 


074106R 


T173SS 


046466R 


002 


T193SS 


060064R 


002 


T38AS1 


074153R 


T174CM 


047147R 


002 


T194SS 


06013 IR 


002 


T38BFR 


071236R 


T174SS 


046533R 


002 


T195CM 


060664R 


002 


T38BS0 


071230R 


T175CM 


047232R 


002 


T195SS 


0601 74R 


002 


T38BS1 


071231R 


T175SS 


0465 76R 


002 


T196CM 


060740R 


002 


T36BS2 


071232R 


T176CM 


047306R 


002 


T196SS 


060240R 


002 


T38CNT 


074254R 


T176SS 


046642R 


002 


T197CM 


061023R 


002 


T38DAT 


073544R 


T177CM 


047414R 


002 


T197SS 


060303R 


002 


T380LY 


071212R 


T18BFR 


051442R 


002 


T198CM 


061111R 


002 


T380SW 


071740R 


T18CMP 


051143R 


002 


T198SS 


060352R 


002 


T38DTA 


071730R 


TloOAT 


051430R 


002 


T199CM 


061200R 


002 


T38EAI 


071736R 


T180T2 


051500R 


002 


T2 


024206RG 


002 


T38EB 


071712R 


TlotXP 


050706R 


002 


T2.1 


024224R 


002 


T38ID 


0731 15R 


TloLOO 


050246R 


002 


T2.2 


0244 74R 


002 


T38INT 


072S06R 


T 1 BMP 


050702R 


002 


T20BEN 


066272R 


002 


T38HBP 


073604R 


T « BB 


051420R 


002 


T208FR 


066152R 


002 


T38nSG 


07305SR 


T18PK2 


051470R 


002 


T20BFS 


0661 72R 


002 


T38MS1 


072716R 


TlobET 


051310R 


002 


T20CLE 


066054R 


002 


T3SMS2 


073011R 


Tib f mt 


051266R 


002 


T20CLR 


06S642R 


002 


T38HS3 


072055R 




051246R 


002 


T20CUP 


06554 7R 


002 


TS8NBA 


072342R 


T % BP f B 

TloSSR 


050775R 


002 


T20DAT 


066140R 


002 


TS8NE 


072000R 


T % Ave 


050732R 


002 


T200T2 


0663 lOR 


002 


TSeOFL 


072572R 


T 1 B^f ^ 

TIo2SS 


051032R 


002 


T20EXE 


064722R 


002 


T380NL 


072536R 


T lo3bS 


051076R 


002 


T20EXP 


064602R 


002 


T38PAC 


071220R 


T19BcN 


0622 12R 


002 


T20EXS 


064622R 


002 


T38PK2 


071720R 




057536R 


002 


T20L00 


062354R 


002 


T58PK3 


071750R 




062072R 


002 


T20HSK 


064576R 


002 


T38PK4 


071770R 


1 1 5 


0621 12R 


002 


T20PAC 


066130R 


002 


T38RES 


073546R 


T % O^l C 

T l^lCLc 


061740R 


002 


T20PK2 


066300R 


002 


T38SIZ 


071776R 


T % ft^l D 

1 I^LK 


061474R 


002 


T20RFI 


065726R 


002 


T38SSR 


0724 16R 


T19CNV 


062004R 


002 


T20RSr 


065446R 


002 


T38SST 


072626R 


1 IWAT 


062060R 


002 


T20SET 


066074R 


002 


T38TAD 


071230R 








TcOxX 


QooO<5oH 




T3oM-c 


07227 5R 


T19eXE 


057722R 


002 


T20SR0 


065666R 


002 


T3dUR 


071772R 


T19EXP 


057602R 


002 


T20SSR 


064751R 


002 


T38URL 


072234R 


T19EXS 


057622R 


002 


T20SUP 


065337R 


002 


T38URT 


072150R 


T19L00 


051526R 


002 


T20WFI 


065746R 


002 


T39BFR 


075516R 


Tl9hSK 


057576R 


002 


T20UrM 


066002R 


002 


T39BS0 


075510R 


T19PAC 


062050R 


002 


T20Um 


0660P2R 


002 


T39BS1 


075511R 


719PK2 


062220R 


002 


T20WNP 


065706R 


002 


T39BS2 


075512R 


T19PRE 


0S7534R 


002 


T202SS 


065006R 


002 


T39DAT 


077342R 
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002 


T39DLY 


0754 74R 


002 


WC.IFE- 


000002 




002 


TS90SW 


076220R 


002 


WCICO- 


000001 




002 


T39DTA 


076210R 


002 


WC.IRE- 


000010 




002 


T39EAI 


076216R 


002 


WC.IRW 


000004 




002 


T39ETN 


07642 IR 


002 


WC.IOT- 


000100 




002 


T39ETS 


076332R 


002 


MC,I1T- 


000040 




002 


T39HCL 


077263R 


002 


WC.I5R- 


000020 




002 


T39NBA 


076755R 


002 


WF.IED- 


000010 




002 


T39NE 


076253R 


002 


WF.IER- 


000004 




002 


T39fFL 


076250R 


002 


WF.IMI- 


000200 




002 


T390FF 


077245R 


002 


MF.IRE* 


000040 




002 


T390F2 


076514R 


002 


UF.IWF» 


000020 




002 


T390N 


077254P 


002 


WF.IUR- 


000100 




002 


T390N2 


076560R 


002 


UF.I3R* 


000002 




002 


T39PAC 


075500R 


002 


UF.14R- 


000001 




002 


T39PK2 


076200R 


002 


URTCHR 


010472RG 


002 


002 


T39PK3 


076230R 


002 


URTERR 


005107R 


002 


002 


T39PK4 


076240R 


002 


WRTMSG 


005052R 


002 


002 


T39RES 


077344R 


002 


WSMBK 


021O20RG 


002 


002 


T39RL 


077340R 


002 


XFERAS 


015S50R 


002 


002 


T3958S 


077173R 


002 


XNXM 


016206R 


002 


002 


T39SFS 


077121R 


002 


XORBFO 


007506R 


002 


002 


T39SIZ 


076246R 


002 


XORFOR 


007624R 


002 


002 


T39SSR 


077031R 


002 


XSTO • 


000006 G 




002 


T39TAD 


075510R 


002 


XSTl • 


000010 G 




002 


T39UPN 


076676R 


002 


XST2 • 


000012 G 




002 


T39UR 


076242R 


002 


XST3 • 


000014 G 




002 


T39URT 


076623R 


002 


XST4 ■ 


000016 G 




002 


T4 


031524RG 


002 


XSOBOT- 


000002 




002 


T4.1 


031554R 


002 


XSOEOT- 


000001 




002 


T4.2 


032060R 


002 


XSOIE - 


000040 




002 


T4,3 


032452R 


002 


XSOILA- 


000400 




002 


T40NE 


10102SR 


002 


XSOILC* 


001000 




002 


T5 


034314RG 


002 


XSOLET- 


020000 




002 


T5.1 


034332R 


002 


xsonoT- 


000200 




002 


T5.2 


0354 12R 


002 


XSONEF- 


002000 




002 


T6 


040116RG 


002 


XSOONL- 


000100 




002 


T6,l 


040144R 


002 


XSOPEO" 


000010 




002 


T6.2 


0404 34R 


002 


XSORLL- 


010000 




002 


T6,3 


041644R 


002 


XSORLS" 


040000 




002 


T6,4 


043204R 


002 


XSOTtf(- 


100000 




002 


T6,5 


043562R 


002 


XSOVCK- 


000020 




002 


T6.6 


045034R 


002 


XSOULE- 


004000 




002 


T7 


050230RG 


002 


XSOULK- 


000004 




002 


T8 


051510RG 


002 


XXCOMM 


003122RG 


002 


002 


T8.1 


051526R 


002 


XIALUA" 


000000 




002 


T8.2 


053526R 


002 


XIFALS" 


000040 




002 


T8.3 


055014R 


002 


XIOFFS- 


000400 




002 


T8.4 


056264R 


002 


X $ TRUE ■ 


000020 




002 


T9 


062336RG 


002 


XI. COR- 


020000 




002 


T9.1 


062354R 


002 


Xl.DLT- 


100000 




002 


UAh 


000200 G 




Xl.ffiZ- 


017375 




002 


UNITN 


002202RG 


002 


Xl.RBP- 


000400 




002 


UNREC - 


000006 




XI. SPA- 


040000 




002 


USI 


004117R 


002 


Xl.UNC- 


000002 




002 


WAITF 


016060RG 


002 


X2,BUF. 


000100 




002 


WC.IFA- 


000200 




X2.EXT. 


000200 
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SEQ 241 



X2.0PM- 100000 
X2.RCE- 040000 
X2.REV- 000077 
X2.SPA- 035400 



ABS. 



X2.UNI- 000007 

X2.UCF- 002000 

X3.DCK- 000010 

X3.^eZ- 000006 



X3.MDE- 177400 

X3.0PI- 000100 

X3.REV- 000040 

X3.RIB- 000001 



XS.SPA- 000200 
XS.TRF- 000020 
X4.HSP- 100000 
X4.HBZ- 017400 



X4.RCE- 040000 
X4.T3H- 020000 
X4,WRC- 000377 



000000 000 
000000 001 
ABS 101352 002 
ERRORS DETECTED: 0 

VIRTUAL fCNORf USED: 31056 UORDS ( 122 PAGES) 
DYNAMIC MENORY: 20614 WORDS ( 79 PAGES) 
ELAPSED TIME: 00:51:47 

CZTSBA . CZTSBA . SEQ/ -SP-SVC/ML . TSVIB . TSV22B . TSV3B • TSV4 , TSVS5B . TSV6 



